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PREFACE 


One of the programing languages utilized by the Burroughs B 5500 
Electronic Information Processing System is Extended ALGOL. In 
addition to implementing virtually all of ALGOL 60; Extended ALGOL 
provides for communication between the processor and input/output 
devices, enables editing of data, and facilitates program debug- 
ging. Within the framework of an Extended ALGOL program, the 
programmer can thus exercise close control over data transmission 


and manipulation to any desired degree. 


This manual is a detailed reference source for Extended ALGOL. _It 
describes all the structures contained in the language through 

the use of syntactical descriptions, pertinent examples, and 
semantics. Although the material contained herein is not inten- 
ded as a teaching aid, serious and careful study should provide 


the reader with a thorough understanding of Extended ALGOL. 


Except where spaces are specifically prohibited or mandatory, as 
described in the following text, the use of blanks is optional. 
For this reason, the spacing within many examples has been deli- 
berately varied to illustrate both optimum program readability 


and optimum packing of information on punched cards. 


When a reserved word is actually used in a given construct, it 
appears in capital letters; when it is merely descriptive, however, 
it is in lowercase letters. For example, a "LIST declaration". 


contains the reserved word LIST, but a "list part" does not. 


The reader is assumed to have had some experience in systems 
programing. For those unfamiliar with ALGOL 60, the Burroughs 
B 5500 Electronic Information Processing System, or both, the 


following publications are suggested: 


1. Burroughs B 5500 Information Processing System Reference 
Manual (1021326) 


2. Burroughs B 5500 System Operation Manual (1024916) 


iii 


3. Thurnau, D. H., et al., ALGOL Programing - A Basic 
Approach, 


4, Naur, P., et al., Revised Report on the Algorithmic 
Language ALGOL 60 (Communications of the Association 
for Computing Machinery, Vol. 6, No. 1, Jan., 1963), 


5. McCracken, Daniel D., An Introduction to ALGOL 
Programming (New York, New York: John Wiley and 
Sons, 1962). 


In many cases, portions of reference 4 have been reproduced in 
this manual with little change in order to adhere as closely as 


possible to the formal definition of ALGOL 60. 
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INTRODUCTION 


Extended ALGOL, one of the languages used for programing the 
Burroughs B 5500 Electronic Information Processing System, is 
based on the definitive "Revised Report on the Algorithmic 
Language ALGOL 60" (Communications of the ACM, Vol. 6, No. 1; 
January, 1963). Extended ALGOL implements virtually all of ALGOL 
60, and adds certain extensions which are necessary to handle 
situations peculiar to computer operations: input/output opera- 
tions, Bartiedl word operations, character manipulation, and 
diagnostic facilities. The extensions which have been added were 


designed with the philosophy used in the design of ALGOL 60. 


xXiv 


SECTION 1 


STRUCTURE OF THE LANGUAGE 


GENERAL. 

ALGOL 60 deals with the formation of rules for calculation of a 
value or values by means of a computer. Burroughs Extended ALGOL 
also includes the means required by a programmer to communicate 


with the computing equipment. 


Extended ALGOL employs a vocabulary of reserved words and symbols. 
These reserved words and symbols may not be used in a program for 
any purpose other than that defined by the language description 


in this manual. 


Reserved words and symbols are grouped in ways prescribed by the 
syntax to form the various constructs of the language. These con- 
structs can be divided into five major categories: basic compo- 
nents, general components, expressions, statements, and declara- 


tions. 


Basic components may be combined in accordance with the rules of 
the language to form general components and expressions. Four 
different forms of expressions are defined in the language: arith- 


metic, Boolean, designational, and concatenate. 


The results produced by the evaluation of arithmetic, Boolean, and 
concatenate expressions can be assigned as the values of variables 
by means of assignment statements. These assignment statements 


are the principle active elements of the language. 


In addition, to provide control of the computational processes and 
external communication for a program, certain additional statements 
are defined. These statements provide iterative mechanisms, con- 
ditional and unconditional program control transfers, and input/ 
output operations. In order to provide control points for trans- 


fer operations, statements may be labeled. 


Declarations are provided in the language for giving the Compiler 
information about the constituents of the program such as array 
sizes, the types of values that variables may assume, or the ex- 
istence of subroutines. Each such construct must be named by an 
identifier, and all identifiers must be declared before they are 


used. 


A series of statements enclosed by the reserved words BEGIN and 
END is called either a compound statement or a block; each pro- 
vides a method for grouping related statements. If a declaration 
of identifiers appears immediately after the word BEGIN, the 
statement group is called a block. A statement group may contain 
subordinate statement groups. <A program is a grouping of state- 
ments, usually a block. (To be completely precise, a program may 


also be a compound statement. ) 


CONVENTIONS USED IN THE DESCRIPTION OF THE LANGUAGE. 
The syntax of the language is described through the use of meta- 


linguistic symbols. These symbols have the following meanings: 
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one or more characters representing a metalinguis- 
tic variable whose value is given by a metalinguis- 


tic formula. 


b. ::= The symbol ::= means "is defined as," and separates 
the metalinguistic variable on the left of the for- 


mula from its definition on the right. 


C. | The symbol means or. This symbol separates 


multiple definitions of a metalinguistic variable. 


d. { } Braces are used to enclose metalinguistic variables 
which are defined by the meaning of the English- 
language expression contained within the braces. 
This formulation is used only when it is impossible 


or impractical to use a metalinguistic formula. 


The above metalinguistic symbols are used in forming a metalin - 
guistic formula, A metalinguistic formula is a rule which will 
produce an allowable sequence of characters and/or symbols. The 
entire set of such formulas defines the constructs of Extended 


ALGOL. 


Any mark or symbol in a metalinguistic formula which is not one 
of the above metalinguistic symbols denotes itself. The juxta- 
position of metalinguistic variables and/or symbols in a meta- 
linguistic formula denotes juxtaposition of these elements in the 


construct indicated. 


Spaces have been used between language elements for readability 
Lh 


» but in general, spaces may be used or omitted 


except as prescribed herein. See pages 2-3 and 2-4 in particular. 


In order to indicate specifically the differences between Extended 


ALGOL and ALGOL 60, each metalinguistic formula is preceded by an 


underlined number. These numbers have the following meanings: 
a. 1 Same as ALGOL 60 except for character set.* 
b. 2 Different from ALGOL 60. 
c. 3 In addition to ALGOL 60 (all or in part). 


To illustrate the use of syntax, the following example is offered: 


1 (identifier) ::= (letter) | (identifier) (letter) | 
(identifier) (digit) 


The above metalinguistic formula is read as follows: an identi- 
fier is defined as a letter, or an identifier followed by a letter, 


or an identifier followed by a digit. 


The metalinguistic formula defines a recursive relationship by 


which a construct called an identifier may be formed. Evaluation 


*Formulas preceded by the number 1 represent the material presen- 
ted in "Report on the Algorithmic Language, ALGOL 60" (Communica- 
tions of the Association for Computing Machinery, Vol. 3, No. 5; 

May, 1960) as modified by the changes which were made during the 

Rome meeting of the ALGOL Committee (April 2-3, 1962). 


1-3 


of the formula shows that an identifier begins with a letter; the 
letter may stand alone, or may be followed by any mixture of 


letters and digits. 


The number 1 indicates the departure of the defined construct from 


the definitions of ALGOL 60, as noted above. 


CHARACTER SET. 
SYNTAX. 


The syntax for (character) is as follows: 


3 character) ::= (string character) | (string bracket 
character) | (illegitimate character) 
3. (string character) ::= (visible string character) | (single 
space) 
3 (visible string character) ::= [EL] C<l-lel$]*))|sl<]-[/| 


»12/=[]l#lel:[>l=l+lalsle| 
Die|F{e{H{r|x|o|K|L|M|N]o| 
P/Q|R|4/s|tlu]v|w[x|y|zlo| 
1j2[3|4|5|6|7/8]9 


3 (single space) 23= {a single unit of horizontal spacing 
which is blank} 

3 space) ::= (single space) | (space) (single space) 

3 (string bracket character) ::= " 

1 empty) ::= {the null string of symbols} 

3 (illegitimate character) ::= ? 

NOTE 
The illegitimate character ? is not used 
in writing Extended ALGOL programs. It 
serves to represent any illegitimate card 
code detected during a card read opera- 
tion. It is shown here merely to complete 
the illustration of the character set. 
SEMANTICS. 


The above character set has been defined; therefore, the 


1-4 


definition of Extended ALGOL will reflect the use of this charac- 
ter set. The visible string characters, the string bracket char- 
acter, the single space, and the illegitimate character provide 


a total of 64 characters. 
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SECTION 2 


BASIC COMPONENTS: 
BASIC SYMBOLS, IDENTIFIERS, NUMBERS, AND STRINGS 


GENERAL. 
SYNTAX. 
The syntax for (basic symbols) is as follows: 


1 (basic symbol) ::= (letter) | (digit) | (logical value) | 
(delimiter) 


SEMANTICS. 


The entire Extended ALGOL ianguage is formed from the above basic 


SYNTAX. 
The syntax for (letter) is as follows: 


1 (letter) ::= AlBi|c|p|e|rl[c|H|zrlo]K|L[mM[nlolPlalris|tlulv 
w{[x|y|z 


SEMANTICS. 

The alphabet defined for Extended ALGOL is restricted to the 
uppercase letters of the English alphabet. The lowercase lete- 
ters are specifically disallowed. Individual letters do not have 
individual meaning but serve to form identifiers and strings (see 


page 2-5, Identifiers, and pages 2-7 and 2-8, Strings). 


DIGITS. 
The syntax for (digit) is as follows: 


1 (digit) ::= of1|2|3|4[5|6l|7/8]9 


SEMANTICS. 


Digits are used for forming numbers, identifiers, and strings. 


LOGICAL VALUES. 
SYNTAX. 
The syntax for {logical value) is as follows: 


1 (logical value) ::= TRUE|FALSE 


SEMANTICS. 
Logical values are the only values defined for Boolean quantities 


(see pages 9-2 and 9-3, Type Declarations). 


DELIMITERS. 
SYNTAX. 
The syntax for (delimiter) is as follows: 


1 (delimiter) ::= (operator) | (separator) | (bracket) | 
(declarator) | (specificator) 

1 (operator) ::= (arithmetic operator) | «relational operator) 
| {logical operator) | (sequential operator) 

3 arithmetic operator) ::= +|-|x|/|p1v|*|Mop|TIMES 

i relational operator) ::= <|<]=|>|>[4|LSS|LEQ|EQL|GEQ| 
| GTR|NEQ 

3 logical operator) ::= EQV|IMP|OR|AND|NOT 

3 sequential operator) ::= G0O|TO|IF|THEN|ELSE|FOR|DO|READ| 


WRITE |DOUBLE|RELEASE|DS|TOGGLE| 
JUMP | SKIP|DB|DI|SET|LOocK|zIP|ct1| 
sc|pDc|RESET|SB|SI|TALLY|REWIND| 
CLOSE|SPACE|FILL| PaGE|DBL|NO| 
_ BREAK 
3 separator) ::= ,|.|@|:|;|-]&@]<single space) | STEP|UNTIL| 
| WHILE| COMMENT | Loc|wDs|app|suB|LIT|CHR|NUM| 
ZON|DEC|OCT|WITH| := 
3 bracket) ::= (|)|[]]]"|]Becrin]E=np|#4|LB|RB 
3 declarator) ::= OWN| BOOLEAN | INTEGER|REAL|ARRAY|SWITCH|LABEL| 
LOCAL | FORWARD|SAVE|PROCEDURE|STREAM|LIST| 
FORMAT |1IN|OuT|MONITOR|DUMP|FILE| ALPHA | 
DEF INE| REVERSE 
3 (specificator) ::= VALUE 


SEMANTICS. 

Delimiters are the class of operators, separators, brackets, de- 
clarators, and specificators. As the word "delimiter" indicates, 
an important function of these eliements is to separate the various 


entities which make up a program. 


In order to accept input from equipment not having the full char- 
acter set as shown on page 1-4, alternate representations of cer- 


tain delimiters are provided as follows: 


LSS < 
LEQ 
EQL = 
GEQ > 
GTR 


a 

a 

4 

by 

ep) 
Toms & MR OV 


Throughout the text of this manual, the symbols in the right-hand 


column are used. 


Delimiters have fixed meanings which will be made clear as they 
appear in various constructs below. Delimiters and logical values 
are considered basic symbols of the language, having no relation 
to the individual letters of which they are composed. Conse- 
quently, the words which constitute the basic symbols are reserved 
for specific use in the language. A complete list of these words, 
and details of the applicable restrictions, are given in Appendix 


A. 


SPACING. 

In the ALGOL 60 Reference Language, spaces have no significance 
since basic components of the language such as BEGIN are con- 
strued as one symbol. In a machine implementation of sucha 


language, however, this approach is not practical. In Extended 
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ALGOL, for instance, BEGIN is composed of five letters, TRUE 
is composed of four, and PROCEDURE of nine. No space may appear 
between the letters of a reserved word; otherwise, it will be 


interpreted as two or more elements. 


The basic components (reserved words and symbols) are used, to- 
gether with variables and numbers, to form expressions, state- 
ments, and declarations. Because some of these constructs place 
quantities which have been defined by the programmer next to 
delimiters composed of letters, it is necessary to separate one 
from the other. The space is used as a delimiter in these cases; 
therefore, a space must separate any two basic components of the 


following forms: 


Multicharacter delimiter. 
Identifier. 


Logical value. 


a oo 9 


- Unsigned number. 


Aside from these requirements, a space may appear (if desired) 


between any two basic components without affecting their meaning. 


THE USE OF COMMENTS. 

In order to include explanatory material at various points in 

the program, several conventions exist as defined below. The 

reserved word COMMENT indicates that the information following 


is explanatory rather than part of the program structure. 


Sequence of Basic Symbols Equivalent 


3; COMMENT {any sequence of characters 


not containing 3} 4 : 


BEGIN COMMENT {any sequence of charac- 
ters not containing ;} ; BEGIN 


END {any sequence of letters and/or digits, 
including blanks, but excluding the 
reserved words END, ELSE, UNTIL} END 
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The above conventions mean that any construct which appears on 
the left may be used in place of the corresponding construct on 


the right without any effect on the operation of the program. 


IDENTIFIERS. 
SYNTAX. 
The syntax for (identifier) is as follows: 


1 {identifier) ¢:= (letter) | ¢3 tifier’S letter) | 
— Mica) Sa pia ® aes ve Py ee fe Ney INES - Sep ON Oa: 


(identifier) a me 


Examples: 


i 

ID 

A5 

G76D3 
ARITHMETICMEAN 


SEMANTICS. 
Identifiers are used as labels, and also serve to name programs, 
variables, arrays, switches, procedures, files, formats, and 


lists. The identifiers used in a program may be chosen freely. 


RESTRICTIONS. 


Reserved words of Extended ALGOL may not be used as identifiers. 


An identifier must start with a letter, which can be followed 
by any combination of letters or digits, or both. The latter 
restriction also applies to labels, since integer labels are 


specifically disallowed. 


Identifiers may be as short as one letter or as long as 63 letters 


and digits. 
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NUMBERS. 
SYNTAX. 


The syntax for (number) is as follows: 


1 (number) ::= (unsigned number) | +(unsigned number) | 


-(unsigned number) 


1 unsigned number) ::= (decimal number) | (exponent part) | 
(decimal number) (exponent part) 
1 (decimal number) ::= (unsigned integer) | (decimal fraction) 
| {unsigned integer) (decimal fraction) 
1 exponent part) ::= @ (integer) 
1 (decimal fraction) ::= . (unsigned integer) 
1 (integer) ::= (unsigned integer) | +(unsigned integer) | 
-{unsigned integer) 
1 unsigned integer) ::= (digit) | (unsigned integer) (digit) 
Examples: 
Numbers: Unsigned Numbers: Decimal Numbers: 
0 1354.543 1354 
549755813887 @68 546 
8.758@-47 1354.54@68 1354.543 
4.314@68 
Exponent Parts: Decimal Fractions: Integers: 
@68 <5 +546 
@-46 .69 -62256 
@+54 12 
Unsigned Integers: 
5 
69 
SEMANTICS. 


Numbers may be of two basic types, INTEGER or REAL. Integers 
are of type INTEGER; all other numbers are of type REAL. 
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SIZE LIMITATIONS OF NUMBERS. 

In general, the number of digits (disregarding the decimal point 
and exponent part, if any ) in an unsigned number may not exceed 
eleven; otherwise, the value will be truncated to the most sig- 
nificant eleven digits. Twelve digits are allowed if, disre- 
garding the decimal point and exponent part, they do not exceed 
549755813887 in value. 


The first series of exampies under Numbers (page 2-6) shows the 
lower and upper limits of the absolute values of numbers, of both 
INTEGER and REAL types, which are allowed in Extended ALGOL. (See 


also page 4-8, Numerical Limitations and Significant Digits.) 


RESTRICTION. 
No space may appear within an unsigned number; an embedded space 


will cause it to be interpreted as more than one number. 


SYNTAX. 
The syntax for (string) is as follows: 


2 (string) ::= "(proper string)" | "(string bracket character)" 
2 proper string) ::= (string character) | (proper string) 


(string character) 


Examples: 
String: 
N"ALGOL t! 


"THE FOLLOWING TABLE OF RESULTS WAS BASED ON FORMULA: 


A = Bxc" 


Proper String: 


it 
#A@EG 
ALGOL 60 
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SEMANTICS. 


Strings are of two forms: 


a. A proper string delimited on both ends with the 


string bracket character. 


USE OF STRINGS. 

Strings can be used to form arithmetic expressions (see pages 4-1 
through 4-8, Arithmetic Expressions), FORMAT declarations (see 
pages 9-21 through 9-34, FORMAT Declarations), FILL statements 
(pages 6-6 and 6-7) and destination string statements (pages 11-8 
through 11-12, Destination String Statement). 


RESTRICTION. 


A string may not exceed 63 characters in length. 


LETTER STRING. 
SYNTAX. 
The syntax for (letter string) is as follows: 


3 (letter string) ::= (letter) | {letter string) (letter) | 
(space) | (letter string) (space) 


Examples: 


A 
ABCDEF 
ALGOL 


SEMANTICS. 
The letter string may incorporate a space as an integral part of 
its construct, and any spaces appearing between the delimiters of 


a letter string will be so interpreted. 


A letter string may be used in a parameter delimiter for explana- 
tory purposes in a parameter list (pages 6-10 through 6-16, Pro- 


IN ON INTT 


D Th rn kK ice | aes \ 
CO, PROCEDURE Declarations). 


F- 


cedure Statements and section 
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RESTRICTION. 


A letter string may not exceed 63 characters in length. 


CONSTITUENTS AND SCOPES. 

The following kinds of quantities are declared in Extended ALGOL: 
simple variables, arrays, labels, switches, and procedures. In 
addition, certain other constituents are declared: files, for- 


mats, definitions, liists, forward references, and diagnostics. 


The scope of any quantity or other constituent is the block in 
which the quantity or constituent is declared. All the above 
quantities and other constituents must be declared before they 


are referenced in any manner. 


VALUES AND TYPES. 
Certain syntactical units have values. The value of an arith- 


metic expression is a number, the value of a Boolean expression 


is 


NY) 
[and 
© 
the) 
[a 
© 
ny) 
[ead 


value, and the value of a designational expression 
is a label. The value of an array identifier is the ordered set 
of values of the associated subscripted variables; this may be 
a set of numbers, a set of logical values, or a set of proper 


strings. 


The types (INTEGER, REAL, BOOLEAN, and ALPHA) associated with 


syntactical units refer to the values of these units. 
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SECTION 3 


GENERAL COMPONENTS 


GENERAL. 
SYNTAX. 


The syntax for (general components) is as follows: 


3 general components) ::= (variable) | (partial word desig- 
nator) | (switch file designator) | 
(switch format designator) | 
(switch list designator) | (function 


designator) 


Combinations of basic components are used to create general com- 


ponents, which in turn are combined in building expressions. 


It should be understood, however, that no sharp dividing line can 
be drawn between general components and expressions since they are 
used recursively; i.e., expressions are formed from general com- 
ponents, but general components also use expressions in their 


definitions. 


VARIABLES. 
SYNTAX. 
The syntax for (variable) is as follows: 


ee (variable) 235 (simple variable) | (subscripted variable) 

1 (simple variable) ::= (variable identifier) 

1 (variable identifier) ::= (identifier) 

1 (subscripted variable) ::= (array identifier) [ (subscript 

list) | 

1 (array identifier) ::= (identifier) 

1 (subscript list) ::= (subscript expression) | (subscript 
| list), (subscript expression) 

i {subscript expression) 235 (arithmetic expression) 


Examples: 


Simple Variables: 


ALPHAINFO 
BETA4 
Q 


Subscripted Variables: 


AL 5] 

A [ITH] 

KRONECKER [ITH + 2, JTH - ITH] 

MAXQ [IF BETA = 30 THEN -2 ELSE K + 2] 


Subscript Lists: 


5 
ITH 


ITH, JTH 
ITH + 2, JTH - ITH 
IF BETA = 30 THEN - 2 ELSE K + 2 


SEMANTICS. 
A variable is the symbolic re 
A variable may be used in an expression in order to produce another 
value. The value designated by a variable may be changed through 
the use of an assignment statement (see pages 6-2 through 6-4, 
Assignment Statements). There are two forms of variables: sim- 


ple and subscripted. 


SIMPLE VARIABLES. 

A simple variable is defined as being composed of a single vari- 
able identifier. The type of value that a simple variable may 
represent is defined by its type declaration (see pages 9-2 and 


9-3, Type Declarations). 


SUBSCRIPTED VARIABLES. 

A subscripted variable represents a value which is a member of a 
set of values described by an array. A subscripted variable is 
composed of an array identifier and a subscript list. The array 


identifier specifies a particular array (see pages 9-3 through 


328 


9-6, ARRAY Declarations). The subscript list specifies one ele- 
ment of the array. <A subscript expression is defined as an arith- 
metic expression. Each arithmetic expression occupies a subscript 


position in the subscript list and is referred to as a subscript. 


NUMBER OF SUBSCRIPTS. The total number of subscripts in a sub- 
script list must equal the number of dimensions given in the 
ARRAY declaration. 


EVALUATION OF SUBSCRIPTS. Each subscript expression in the sub- 
script list is evaluated from left to right. Each subscript 
expression is treated as a variable of type INTEGER. If, upon 
evaluation, the subscript expression yields a value of type 


NT a + 
REAL, it 


will be rounded by the following automatically-invoked 
transfer operation (see pages 3-10 and 3-11, Type Transfer 


Functions): 


subscript value = ENTIER (value of subscript expression 


+ 0.5) 


The values which result from the evaluation of the subscript 
expressions provide the actual integral values of the subscripts 
by which the array component is referenced. If the value of a 
subscript falls outside the limits declared for the array, the 


value of the element so referenced is undefined. 


PARTIAL WORD DESIGNATORS. 
SYNTAX. 


The syntax for (partial word designator) is as follows: 


3 (partial word designator) ::= (partial word ea 
[ (field description) | 

3 partial word operand) ::= (variable) | (function desig- 
nator) | ({arithmetic 
expression) ) 

3 <field description) ::= (left bit of field) : (bits in 

field) 
3 left bit of field) ::= (unsigned integer) 
3 (bits in field) ::= (unsigned integer) 


I= 3 


Examples: 


Partial Word Designators: 


Xl 326 | 

ZEA) s(t] 

AL 1,3] .[9:39] 

(Q + 3.543).[ 2:1] 


Field Descriptions: 


3:6 
9:39 
1:1 
ao 
42:6 


SEMANTICS. 

The function of a partial word designator is to allow operations 
upon portions of the numerical or character representations 
assigned to certain quantities, rather than upon the entire re- 


presentation or word. 


VALUES ALLOWED FOR FIELD. 

The value of a partial word operand is contained in a word which 
is 48 bits in length. The addressable bits in this word are num- 
bered from left to right, from 1 to 47. (Bit O cannot be add- 
ressed.) Therefore, neither the value of the left bit of the 
field nor the value of the bits in the field may exceed 47. In 
addition, the sum of the left bit of the field and the bits in 
the field must not be greater than 48 (e.g., [46:2] specifies 

bit 46 and 47). 


OWITCH FILE DESIGNATOR. 
SYNTAX. 


The syntax for (switch file designator) is as follows: 


3 switch file designator) ::= (switch file identifier) 
[<subscript expression) | 


3 (switch file identifier) ::= (identifier) 
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Examples: 
SWHFI[ I | 
SWIFI[IF X > N THEN O ELSE 1] 
FISW[ REAL (X <N) ] 


SEMANTICS. 
Switch file designators are used in I/O statements in the same 


fashion as file identifiers. 


A switch file designator is used in conjunction with the SWITCH 
FILE declaration specified by the switch file identifier. The 
value of the subscript expression determines which file identi- 
fier in the related switch file list is to be selected for use 

in the I/O statement. The value of the subscript expression must 
correspond to the position of one of the file identifiers in the 
switch file list. The values of these positions start with O. 

If the value of the expression i other than integer, it will 

be converted to an integer in accordance with the rules appli- 
cable to subscript expressions (page 3-3). if the value of the 
expression is outside the scope of the switch file list, the file 


so referenced is undefined. 


SWITCH FORMAT DESIGNATOR. 
SYNTAX. 


The syntax. for (switch format designator) is as follows: 


3 switch format designator) ::= (switch format identifier) 
[<subscript expression) | 


3 (switch format identifier) ::= (identifier) 


Examples: 


SF[ I] 
SWHFT [IF X > N THEN O ELSE 1] 


SEMANTICS. 
Switch format designators are used in I/O statements in the same 


fashion as are format identifiers. 
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A switch format designator is used in conjunction with the SWITCH 
FORMAT declaration specified by the switch format identifier. The 
value of the subscript expression determines which editing speci- 
fication part in the related switch format list is to be selected 
for use in the 1/0 statement. The value of the subscript expres- 
sion must correspond to the position of one of the specification 
parts in the switch format list. The values of these positions 
start with O. If the value of the expression is other than inte- 
ger, it will be converted to integer in accordance with the rules 


applicable to subscript expressions (see page 3-3). 


If the value of the expression is outside the scope of the switch 


format list, the editing specification so designated is undefined. 


SWITCH LIST DESIGNATOR. 
SYNTAX. 
The syntax for (switch list designator) is as follows: 


3 (switch list designator) ::= (switch list identifier) 
[<{subseript expression) | 


3 (switch list identifier) ::= (identifier) 


Examples: 


SWLST [TI] 
SWLI [IF A > B THEN 2 ELSE 3] 


SEMANTICS. 
Switch list designators are used in I/O statements in the same 


fashion as list identifiers. 


A switch list designator is used in conjunction with the SWITCH 
LIST declaration specified by the switch list identifier. The 
value of the subscript expression determines which list identi- 


fier will be used from the switch list. 


The value of the subscript expression must correspond to the 
position of one of the list identifiers in the switch list. The 
values of these positions start with O. If the value of the ex- 


pression is other than integer, it will be converted in accordance 


with the rules applicable to subscript expressions (see page 3-3). 
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If the value of the subscript expression is outside the scope of 


the switch list, the list identifier so referenced is undefined. 


FUNCTION DESIGNATORS. 
SYNTAX. 


The syntax for (function designator) is as follows: 


1 (function designator) ::= (procedure identifier) (actual 


parameter part) 


[bh 


(procedure identifier) ::= (identifier) 


Je 


(actual parameter part) ::= (empty) | ({actual parameter 
list) ) 


{actual parameter list) ::= (actual parameter) | (actual 


|e 


f 


parameter list) (parameter 


delimiter) (actual parameter) 


In 


(actual parameter) ::= (expression) | (array row) | (array 
identifier) | (procedure identifier) | 
(file identifier) | (format identifier) 
| (list identifier) | (switch iden- 
tifier) | (switch file identifier) | 
(switch format identifier) | 
(switch list identifier) | (switch 
file designator) | (switch format 
designator) | (switch list designator) 

2 (parameter delimiter) ::= , | ) "(letter string)" ( 


Examples: 


Function Designators: 
J(A, B + 2, Q[1,L]) 
GASVOL(K) "TEMPERATURE" (T) "PRESSURE" (P) 
RANDOMNO 

Actual Parameter Parts: 


(A, B + 2, Q [I,J]) 
(K) "TEMPERATURE" (T) "PRESSURE" (P) 
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SEMANTICS. 

A function designator defines a single value. This value is pro- 
duced by application of a given set of rules defined by a special 
form of a PROCEDURE declaration (see section 10, PROCEDURE Declara- 
tions). This set of rules is applied to the actual parameters of 


the function designator, thereby producing a single value. 


A function designator may be used, depending upon its type, in 
either arithemtic or Boolean expressions (see pages 4-1 through 
4-8, Arithmetic Expressions, and pages 4-8 through 4-14, BOOLEAN 


Expressions). 


STANDARD FUNCTIONS. 
The standard (or "intrinsic") functions supplied for Extended 
AIGOL are listed below, with appropriate definitions. Given that 


AE is an arithmetic expression, then: 
ABS (AE) Produces the absolute vaiue of AE. 


SIGN (AE) Produces one of three values, depending upon 
the value of AE (+1 for AE > 0, O for AE = 0, 
-1 for AE < 0). 


SQRT (AE) Produces the square root of the value of AE. 
SIN {AE) Produces the sine of the value of AE. 
COS (AE) Produces the cosine of the value of AE. 


ARCTAN (AE) Produces the principle value of the arctangent 
of the value of AE. 


LN (AE) Produces the natural logarithm of the value of 
AE. 
EXP (AE) Produces the exponential function of the value 
PS a 6 AE 
of AE, i.e., e 


These functions are understood to operate indifferently on argu- 


ments both of type REAL and type INTEGER. They aii yieid vaiues 
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of type REAL, except for SIGN (AE) which produces a value of 
type INTEGER. The function ABS (AE) also produces a result of 
type INTEGER when the value which results from the evaiuation 


of AE is of type INTEGER. 
For SIN, COS, and ARCTAN, the angle is considered to be in radians. 


These functions may be used without a specific PROCEDURE declara- 


tion, since they are an integral part of the Compiler itself. 


THE TIME FUNCTIONS. 
TIME (AE) makes available the time registered on the internal 
timing device of the system. This feature may be used to measure 


nant af at to 
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execute a program, or parts of a program (see table 3-1). (AE) 
must yield an integer value of zero through four. The result 


of the function is determined by the parameter. 


Table 3-1 


Results of Different TIME (AE) Parameters 


TIME (0) Current date (e.g., 64323 (year and day)) ALPHA 


TIME (1) INTEGER 


Start time plus elapsed time since last 
start time, in sixtieths of a second 


TIME (2) Elapsed processor time, in sixtieths of INTEGER 
a second 


TIME (3) Elapsed I/O time, in sixtieths of a second | INTEGER 
TIME (4) Value of 6-bit machine timer INTEGER 


If the value of (AE) is not one of the integers indicated above, 


the result of the function will be undefined. 


MAX AND MIN FUNCTIONS. 
SYNTAX. 
The syntax for MAX and MIN functions is as follows: 


(limit function) ::= (limit function ID) ({limit list)) 


(limit function ID) ::= MAX | MIN 
(limit list) ::= (arithmetic expression) | (limit list) , 


(arithmetic expression) 


SEMANTICS. 

The semantics of each function, MAX and MIN, is implied by its name, 
i.e., the value returned by the MAX function is the maximum value of 
the arithmetic expressions evaluated, the value returned by the MIN 


function is the minimum value so obtained. 


Example: 


Y := MAX(3,5,I4+J) 


TYPE TRANSFER FUNCTIONS. 
In addition to the set of standard functions provided for Extended 


ALGOL, a set of type transfer functions is also provided. 


These type transfer functions are listed below, with their definitions 


following. 


ENTIER (AE) 
REAL (BE) 
BOOLEAN (AE) 


ENTIER. The function ENTIER yields a value of type INTEGER. This 
function is understood to transfer an expression of type REAL to 

an expression of type INTEGER; and produces the value which is the 
largest integer not greater than the value of the arithmetic expres- 


sion. 


REAL. The function REAL (BE) yields a value of type REAL. The use 
of this function does not alter the internal system representation 
of the value, but allows arithmetic operations to be carried out on 


quantities which have been declared type BOOLEAN. 


REAL (TRUE) 1 


REAL (FALSE) 


BOOLEAN. The function BOOLEAN (AE) yields a value of type BOOLEAN. 
The use of this function does not alter the internal system represen- 
tation of the value, but ailows BOOLEAN operations to be carried out 


on arithmetic quantities. 


The functions REAL and BOOLEAN, used in conjunction, allow for 
handling masking operations since the logical operators (page 4-13) 


operate on the entire word in the system. 


INTERROGATE FUNCTION. 

STATUS. The function STATUS (AE,AE) causes the MCP to perform 
different actions for a specified data communications terminal unit 
and buffer. The STATUS function is described in detail beginning on 


page 6-64. 


SECTION 4 
EXPRESSIONS 
GENERAL. 


SYNTAX. 


The syntax for (expression) is as follows: 


3 expression) ::= (arithmetic expression) | (Boolean 
expression) | (designational expression) | 


(concatenate expression) 


SEMANTICS 
Expressions, which are basic to any algorithmic process, are 


rules to obtain values of different kinds and types. 


As mentioned on page 3-1, expressions are used to define certain 
general components (subscripted variables and function designa- 
tors), and these quantities in turn are used to define expressions. 


The definition of expressions is therefore necessarily recursive. 


ARITHMETIC EXPRESSIONS. 
SYNTAX. 


The syntax for (arithmetic expression) is as follows: 


1 (arithmetic expression) ::= (simple arithmetic expression) | 
(if clause) (arithmetic ex- 


pression) ELSE (arithmetic 


expression) 

1 (simple arithmetic expression) ::= (term) | (adding operator) 
(term) | (simple arith- 
metic expression) 

(adding operator) (term) 

a if clause) ::= IF (Boolean expression) THEN 

1 term) ::= (factor) | (term) (multiplying operator) (factor) 

1 (factor) ::= (primary) | (factor) *{ primary) 

3 (primary) ::= (unsigned number) | (variable) | (function 

designator) | (arithmetic expression)) | 
(partial word designator) | (string) | 
(concatenate expression) | (assignment state- 


ment) yod 


1 (adding operator) ::= + | - 
3 multiplying operator) ::= x | / | priv | mop 


Examples: 


Arithmetic Expressions: 


Q*V¥2 

P MOD 2 

+3 

(IF X = 1 THEN 5.5 ELSE Y/2) 

IF ERROR[ I] = 1 THEN “OVERFL" ELSE "UNFLOW" 
IF B = O THEN X ELSE Y + 2 


Simple Arithmetic Expressions: 


COS(A + B) 

Y*3 

4 x R DIV S 

+3 

ATI] -BL J] + 5.3 


Terms: 


Yi a. 2 
2*(xX + Y) 

4 x R DIV S 
P MOD 2 


Factors: 


5.678 
2*(X + Y) 
Y*3 
Q¥V*2 


Primaries: 
5.678 
Yi 232] 
COs(A + B) 


(IF X = 1 THEN 5.5 ELSE Q/2) 


T.[ 9:39] 
"ALPHA" 


SEMANTICS. 
An arithmetic expression is a rule for computing a numerical value. 
Arithmetic expressions may be divided into two categories: simple 


and conditional. 


SIMPLE ARITHMETIC EXPRESSIONS. 

A simple arithmetic expression is composed of arithmetic operators 
and primaries. It is evaluated by performing the indicated arith- 
metic operations upon the actual numerical values of the primaries 
from which it is formed. The arithmetic operators are explained 


in detail on pages 4-6 and 4-7, Operators and Types. 


PRIMARIES. Table 4-1 shows the values represented by the pri- 


maries in an arithmetic expression. 


Table 4-1 


Represented Values of Primaries in Arithmetic Expression 


Name of Primary Value Represented 


Number The number itself 


Partial word designator The value of the field specified 


Value obtained by applying the 


Function designator 


| computing rules of the respective | 


PROCEDURE declaration 


Arithmetic expression The value derived, which must be 


i h : ‘ ‘ 4 
n parentheses described in terms of the primaries 


from which it is formed 
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Table 4-1 (cont) 


Represented Values of Primaries in Arithmetic Expression 


Name of Primary Value Represented 


Concatenate expression The value of the newly formed 


primary 


The numerical value of the 


string characters 


Assignment statement Value derived, which must be 
described in terms of the pri- 


maries from which it is formed 


RESTRICTION. If a primary is a string, it should generally not 
exceed six characters in length. It is permissible to use a 
seven-character string, but a seven-character string must not be 
used in comparisons or arithmetic operations, unless the left-most 


character of the string is a digit not greater than seven. 


CONDITIONAL ARITHMETIC EXPRESSIONS. 
The evaluation of the conditional arithmetic expression proceeds 


as described in the following paragraphs. 


The Boolean expression is evaluated (see pages 4-8 through 4-14, 
Boolean Expressions). If the value of the Boolean expression is 
TRUE, the arithmetic expression following THEN is evaluated and 
the evaluation of the conditional arithmetic expression is 


complete. 


If the value of the Boolean expression is FALSE, the arithmetic 
expression following the delimiter ELSE is evaluated, thus com- 


pleting the evaluation of the expression. 


The arithmetic expressions following the delimiters THEN and ELSE 
may also be conditional arithmetic expressions. As a result, a 
conditional arithmetic expression could contain a series of IF 
clauses in the expression following either or both of the deli- 


miters. 


hoy 


In the case of a conditional arithmetic expression following the 
delimiter THEN, the Boolean expression(s) in the IF clause(s) are 
evaluated from left to right as long as they yieid a logical vaiue 
of TRUE. If they all yield a logical value of TRUE, the expression 
following the last delimiter THEN is executed, thus completing the 
evaluation of the whole expression. If any of the Boolean expres- 
sions yields a logical value of FALSE, the expression following 


the corresponding delimiter ELSE is executed. 


In the case of the conditional arithmetic expression following the 
delimiter ELSE, the respective Boolean expressions in the IF 
clauses are evaluated from left to right until a logical value of 
TRUE is found. Then the value of the succeeding arithmetic ex- 
pression is the value of the entire arithmetic expression. If 

no TRUE value is found, the value of the whole expression is that 


of the expression following the last ELSE. 


In nested IF clauses, the first THEN corresponds to the iast 
ELSE, and the innermost THEN to the following (i.e., the inner- 
most) ELSE. The delimiters THEN and ELSE between these extremes 
follow the logical pattern established, i.e., the next outermost 
THEN corresponds to the next outermost ELSE, and so on until the 


innermost THEN-ELSE pair has been matched. 


Appropriate positioning of parentheses may serve to establish a 


different order of execution of operations within an expression. 


RESTRICTION. If the primary is an assignment statement, partial 


word designators are not allowed in the left part list. 


OPERATORS AND TYPES. 

The constituent variables of an arithmetic expression must be of 
type INTEGER, REAL, or ALPHA. Note, however, that variables of 

type BOOLEAN may occur in an IF clause of an arithmetic expres- 

sion. (See pages 9-2 and 9-3, Type Declarations.) Definitions 

of the various arithmetic operators are given in the paragraphs 


below. 
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ARITHMETIC OPERATORS. The operators +, -, x, and / have the con- 
ventional mathematical meanings: addition, subtraction, multipli- 
cation, and division, respectively. The operator DIV yields a 


result defined as follows: 
Y DIV Z = SIGN (Y/Z) x ENTIER (ABS (Y/Z)) 


In the case of the operators / and DIV, the operation is undefined 
if the value of the operand on the right equals zero. The operator 


MOD produces a result defined as follows: 
Y MOD Z = Y - [Z x (SIGN (Y/Z) x ENTIER (ABS (Y/Z)))] 


The operator * denotes exponentiation. Its meaning depends on 
the types and values of the operands involved, as shown below. 


Consider Y * Z in table 4-2. 


Table 4-2 ; - 


Meaning of * 


IF Z IS TYPE INTEGER AND IF Z IS TYPE REAL AND 
Z>o [|[zZ2=0 {|2< 0 Z>0 [Z=0 |Z2< 0 
1 
1 


my>o0 |note1 | 1 | note 2 [Note 3 | 1 | wote 3 
iy<o |wote1 | 1 | Note 2 [Note 4] 1 [Note 4 
uy=o0}| 0 [Note 4 | Note 4 | 0 [Note 4 [Note 4] 


Note 1: Y*2Z=Yx Yx...x Y (Z times). 


Note 2: Y * Z = the reciprocal of Y x Y x...x Y (Z times). 
Note 3: Y * Z = EXP(Z x LN(Y)). 


Note 4: Value of expression is undefined. 


ARITHMETIC EXPRESSION TYPES. The type of a value resulting from 
an arithmetic operation depends upon the types of operands as 
well as the arithmetic operators used in obtaining that value. 
In arithmetic operations, operands of type ALPHA are treated as 


if they were of type REAL. All cases are shown in table 4-3, 


Table 4-3 


Types of Values Resulting from an Arithmetic Operation 


OPERAND OPERAND 
ON LEFT ON RIGHT 
a TC ee 


integer integer 
Real -| Integer 
Integer Real Integer 
Real Real Integer 


Note A: If the operand on the right is less than 


zero, Real; otherwise, Integer. 


PRECEDENCE OF OPERATORS. 

In regard to evaluating a simple arithmetic expression, two dis- 
tinct operations should be understood: the determination of the 
numerical values of the primaries, and the arithmetic operations 
involved when combining two operands according to the rules 


associated with the arithmetic operators. 


First, the numerical values of the primaries are determined from 
left to right, yielding a number of values equal to the number of 
primaries in the simple arithmetic expression. Next, these values 
are used two at a time as operands in arithmetic operations, re- 
ducing the number of values by one for each operation until all 


operators have been utilized and a single value remains. 


The sequence in which the arithmetic operations are performed is 
determined by rules of precedence. Each arithmetic operator has 


one of three orders of precedence associated with it, as follows: 


a. First: * 
b. Second: x / DIV MOD 
e« ‘Third: + - 


When operators have the same order of precedence, the sequence 
of operation is determined by the order of their appearance, from 


left to right. 
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The expression between a left parenthesis and the matching right 
parenthesis is evaluated by itself and this value is used in sub- 
sequent calculations. Consequently, the desired order of execu- 
tion of operations within an expression can always be arranged by 


appropriate positioning of parentheses. 


NUMERICAL LIMITATIONS AND SIGNIFICANT DIGITS. 

Normally the result of an arithmetic operation involving the op- 
erators +, -, and x is of type INTEGER if both operands are of 
type INTEGER (see pages 4-5 and 4-6, Operators and Types). If 

the value of the result exceeds 549755813887, however, it will 
become of type REAL (left- justified) to ensure that least signifi- 
cant rather than most significant digits are lost. Therefore, the 
maximum absolute value of type INTEGER (right-justified) that an 
arithmetic operation may yield is 549755813887. 


Since the system utilizes an octal number system, the range of 
absolute real values that an arithmetic operation may yield can 
best be expressed as: 

from (8 * 13 - 1) x 8 * 63 to (8 *12) x 8 * (-63), and zero 

or approximately 


from 4.314@68 to 8.758@-47, and zero. 


BOOLEAN EXPRESSIONS. 

SYNTAX. 

The syntax for (Boolean expression) is as follows: 

2 (Boolean expression) ::= (simple Boolean) | (if clause) 
«Boolean expression) ELSE 


{Boolean expression) 


1 (simple Boolean) ::= (implication) | (simple Boolean) EQV 
(implication) 

1 (implication) ::= (Boolean term) | (implication) IMP 

«Boolean term) 
1 (Boolean term) ::= (Boolean factor) | (Boolean term) OR 
| {Boolean factor) 

1 (Boolean factor) ::= (Boolean secondary) | (Boolean factor) 
AND (Boolean secondary) 

iL (Boolean 


2 ! AT AVR 
secondary) ::= (Boolean primary) | NOT 
Boolean primarys 


3 (Boolean primary) ::= (logical value) | (variable) | 


(function designator) | (relation) | 
({Boolean expression) ) | {partial 
word designator) | (concatenate 
expression) | ({assignment statement) ) 

1 (relation) ::= (simple arithmetic expression) (relational 

operator) (simple arithmetic expression) 
1 (relational operator) ::=< |< |= |2> |> | # 
Examples: 


Boolean Expressions: 


TRUE 
NOT A # O 

Q.[16:1] AND GATE[ 1,2] | 

A = C AND (IF B = 4 THEN TRUE ELSE FALSE) OR GATE[ 1,2] 
IF B = 4 THEN TRUE EQV GATE [1,2] ELSE Q.[ 16:1] 


Simple Boolean Expressions: 


TRUE 
DIODE 
NOT A # C IMP GATE[ 1,2] 


Implications: 


TRUE 
GATE[ 1,2] 
NOT A # C IMP GATE[ 1,2] 


Boolean Terms: 


TRUE 
NOT A #C 
GATE[ 1,2] 


A # C AND (IF B = 4 THEN TRUE ELSE FALSE) OR GATE[ 1,2] 


Boolean Factors: 
GATE[ 1,2] 
NOT A #C 
Q.[ 16:1] AND GATE[ 1,2] 


Boolean Secondaries: 


TRUE 
NOT A # C 


Boolean Primaries: 


TRUE 

DIODE 

GATE[ 1,2] 

J(A,B + 2,GATE[1,2]) 

A #C 

(IF A #4 C THEN TRUE ELSE FALSE) 
Q.{ 16:1] 

(DIODE « GATE[ 1,2] ) 


SEMANTICS. 
A Boolean expression is a rule for computing a logical value. 
Boolean expressions can be divided into two categories: simple 


Boolean expressions and conditional Boolean expressions. 


SIMPLE BOOLEAN EXPRESSIONS. A simple Boolean expression is for- 
med by logical operators* and Boolean primaries. It is evaluated 
by carrying out the operations indicated by the logical operators 
upon the associated Boolean primaries. The evaluation of a simple 
Boolean expression is carried out according to the rules of pre- 


cedence defined for the logical operators (see pages 4-13 and 


4-14). 


The value which results upon evaluation of a simple Boolean ex- 
pression depends upon the primary or primaries which are used to 
form the expression. Table 4-4 shows the values represented by 


the primaries in a Boolean expression. 


*The logical operators are analyzed on page 4-13. 
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Table 4-4 


Values Represented by Primaries in a Boolean Expression 


Name of Primary Value Represented 


Logical value TRUE or FALSE. 
Boolean variable The current vaiue of the variabie, 
— | 


Partial word designator | The value of the field specified. 


The value obtained by applying 


Function designator 


the computing rules of the res- 


Relation 


The value obtained by testing the 
simple arithmetic expressions 
against each other, according to 
the operation of the specific 


relational operator involved. 


Boolean expression The value derived, which must be 


enclosed in parentheses 


described in terms of the Boolean 


primaries from which it is formed, 


Concatenate expression The value of the newly formed 


primary. 


CONDITIONAL BOOLEAN EXPRESSIONS. The simplest form of the con- 


ditional Boolean expression occurs when the IF clause contains a 
simple Boolean expression. The evaluation of the conditional 
Boolean expression in this case proceeds as follows. The simple 
Boolean expression of the IF clause is evaluated according to the 
methods described previously (page 4-10, Simple Boolean Expres- 
sions). If the resulting logical value is TRUE, the Boolean ex- 
pression following the delimiter THEN is evaluated, thus com- 


pleting the evaluation of the conditional Boolean expression. I1f 
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the logical value produced in the IF clause is FALSE, the evalua- 
tion of the conditional Boolean expression is completed by eval- 


uating the Boolean expression following the delimiter ELSE. 


The Boolean expression in the IF clause, or the one following the 
delimiter THEN or the delimiter ELSE, or all three, can be condi- 
tional Boolean expressions. In this event, any of the IF clauses 
consist of a series of IF clauses. Such a construct is said to 
be nested. The evaluation of such nested expressions occurs in 
the same manner as that of analogous constructs in arithmetic 


expressions. 


TYPES. 

The quantities which are used to form Boolean expressions must 
have been declared as type BOOLEAN (see pages 9-2 and 9-3, Type 
Declarations, and page 10-4, Special Rules of Typed Procedures), 
with the exception of the constituents of relations and those 
quantities which are under the influence of type transfer func- 


tions (see pages 3-9 and 3-10, Type Transfer Functions). 


RELATIONAL AND LOGICAL OPERATORS. 
Two types of operators are defined for Boolean expressions: 
relational and logical. These operators are discussed in the 


following paragraphs. 


RELATIONAL OPERATORS. The relational operators denote the 


following relations: 


7. < (is less than). 

- < (is less than or equal to). 

- = (is equal to). 

(is greater than or equal to), 
(is greater than). 


> 
. # (is not equal to). 


hon Oo TFT 
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A relation is evaluated by comparing the values of the two simple 
arithmetic expressions as designated by the relational operator. 
If the relation is satisfied, the value of the Boolean primary is 


TRUE; otherwise, it is FALSE. 
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LOGICAL OPERATORS. The operation of the logical operators NOT 
(negation), AND (logical product), OR (logical sum), IMP (impli- 


cation), and EQV (logical equivalence) is described in table 4-5. 


Table 4-5 


Operation of Logical Operators 


Bl False False True True 


False True False True 


NOT Bl 

Bl AND B2 
Bil OR B2 
Bl IMP B2 
Bl EQV B2 


PRECEDENCE OF OPERATORS. 
The sequence of operations within a simple Boolean expression is 
generally from left to right, with the additional rules shown 


below. The following specific rules of precedence are defined: 


a. First: Arithmetic expressions, according to the rules 


given on pages 4-7 and 4-8. 
b. Second: << =>> # 
c. Third: NOT 
d. Fourth: AND 
e. Fifth: OR 
Ff. Sixtn: IMP 
g€- Seventh: EQV 


A Boolean expression contained in parentheses is evaluated by 
itself; this value is then used in any subsequent evaluation. 


Therefore, the desired order of execution of operations within 
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an expression can always be effected by appropriate positioning 


of parentheses. 


RESTRICTION. 
If the primary is an assignment statement, partial word desig- 


nators are not allowed in the left part list. 


DESIGNATIONAL EXPRESSIONS. 
SYNTAX. 


The syntax for (designational expression) is as follows: 


1 (designational expression) ::= (simple designational 
expression) | (if clause) 
(designational expression) 


ELSE (designational 


expression) 
1 (simple designational expression) ::= (label) | (switch 
designator) | 
({designational 
expression) ) 
1 (switch designator) ::= (switch identifier) [ (subscript 


expression) | 
(switch identifier) ::= (identifier) 


1 
2 (label) ::= (identifier) 


Examples: 
Designational Expressions: 
START 
CHOOSEPATH[ I + 2] 
(START ) 
IF K = 1 THEN SELECT[ 2] ELSE START 


Simple Designational Expressions: 


START 
SELECT{ 2] 
(START) 
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Switch Designators: 


SELECT[ 2] 
CHOOSEPATH[ I + 3] 


SEMANTICS. 

A designational expression is a rule for obtaining a label of a 
statement (see Section 6, Statements). As is true of other ex- 
pressions, designational expressions may be differentiated as 


simple designational and conditional designational expressions. 


SIMPLE DESIGNATIONAL EXPRESSIONS. The process of evaluating a 
simple designational expression depends upon the constructs 
from which it is formed. If a simple designational exp 
is a label, the value of the expression is self-evident. When 

a simple designational expression is a switch designator, the 
actual numerical value of the subscript expression (see page 3-3) 
designates one of the elements in the switch list. The element 
selected may be any form of simple designational expression which 
is evaluated as stated above, or it may be a conditional desig- 


national expression which is evaluated as stated below. 


If a simple designational expression is formed from a designational 
expression in parentheses, the latter is evaluated according to 


the applicable rules. 


CONDITIONAL DESIGNATIONAL EXPRESSIONS. The evaluation of a con- 
ditional designational expression proceeds as follows. The 
Boolean expression contained in the IF clause is evaluated (see 
pages 4-8 through 4-14, Boolean Expressions). If a logical 

value of TRUE results, the designational expression following the 
IF clause is evaluated, thus completing the evaluation of the 
conditional designational expression. If the logical value pro- 
duced by the IF clause is FALSE, the designational expression 
following the delimiter ELSE is evaluated, thereby completing the 


evaluation of the designational expression. 


Since the designational expressions following the delimiters THEN 


and ELSE, or both, can be conditional designational expressions, 
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the analysis of the operation of a designational expression be- 
comes recursive in a manner similar to that of the conditional 
arithmetic and Boolean expressions. In the case of a designa- 


tional expression, however, the result produced is always a label. 


THE SUBSCRIPT EXPRESSION OF A SWITCH DESIGNATOR. 

The value of the switch designator is defined by positive integer 
values 1, 2, 3, .--, n, where n is the number of entries in the 
switch list. If the value of the subscript expression is of a 
type other than integer, it is rounded to an integer in accor- 
dance with the rules applicable to the evaluation of subscripts 
(see page 3-3, Evaluation of Subscripts). If the value of the 
expression is outside the scope of the switch list, the switch 


designator is undefined, and program control continues in sequence. 


CONCATENATE EXPRESSION. 
SYNTAX. 


The syntax for {concatenate expression) is as follows: 


3 (concatenate expression) ::= (left base) (link part) 
3 


(left base) 23 (general primary) | {concatenate expression) 


3 (general primary) ::= (primary) | {Boolean primary) 

3 (link part) ::= (concatenate operator) (right base) (link 
description) 

3 (concatenate operator) ::= & 

3 (right base) ::= (general primary) 

3 (link description) ::= [(left bit of left base) : 


(left bit of right base) : 
{number of bits in link) | 
3 (left bit of left base) ::= (unsigned integer) 
3 (left bit of right base) ::= (unsigned integer) 


3 (number of bits in link) ::= (unsigned integer) 


Examples: 


E & D [36:42:6] & C [30:42:6] & B [24:42:6] & A [18:42:6] 
S& (R + T) [42:42:6] 
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SQRT (C) & 1 [1:47:21] 
X & Y [1:1:1] & Z [ 2:2:46] 
M&N [4:44:36] 


SEMANTICS. 
The concatenate expression provides an efficient method of forming 
a primary, or Boolean primary, from selected bits of two or more 


rimaries, or Boolean primaries, respectively. 
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A concatenate expression can utilize any number of concatenate 
operators; the expression is evaluated from left to right. Each 
concatenate operator causes a concatenated result to be formed; 
this concatenated result may be the final result of the ex- 


pression, or a ieft base. 


A concatenated result is formed by obtaining the value of the 
left base and then replacing a portion of it with a link made up 
of bits from the right base. The link is placed in the left base, 
starting at the bit specified by the left bit of left base. The 
link is obtained from the right base, starting with the bit 
designated by the ieft bit of right base. The number of bits in 
the link is designated by the value of the number of bits in the 
link. 


RESTRICTIONS. 

The integers used for designating the number of bits in the link, 
the left bit of the left base, and the left bit of the right base 
may range from 1 through 47. The sum of the left bit of the left 
base and the number of bits in the link, or the left bit of the 


right base and the number of bits in the link, must not exceed 48. 
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SECTION 5 
PROGRAMS, BLOCKS, AND COMPOUND STATEMENTS 
GENERAL. 


SYNTAX. 
The syntax for (program) is as follows: 


2 (program) ::= (block). (space) | {compound statement) .(space) 
1 (block) ::= (unlabeled block) | (label) : (block) 
1 (unlabeled block) ::= (block head) ; (compound tail) 
1 (block head) ::= BEGIN (declaration) | (block head) ; 
(declaration) 
1 (compound tail) ::= (statement) END | (statement) ; 
{compound tail) 
1 (compound statement) ::= (unlabeled compound statement) | 
{label) : (compound statement) 
1 (unlabeled compound statement) ::= BEGIN (compound tail) 
Examples. 


The syntactical structure of the compound statement and the block 


can be illustrated in the following manner. 


Given: 


S = statement 

S_= compound statement 
L = label 

D = declaration 

B 


= block 


Then: 


Compound Statement: 


36 = BEGIN $;85;S;...S END 
= L:sS 
c 
Block: 
B = BEGIN D;D;...3;D;S;S3;...3;S END 
= L:B 


Because of the syntactical definition of statements (Section 6), 
it should be kept in mind that S in the above examples could itself 


be a compound statement or a block. 


SEMANTICS. 

A series of statements which are common to each other by virtue 

of the defining declarations, and which are bounded by the bracket 
symbols BEGIN and END, constitute the active elements of a block. 

Every block automatically introduces a new level of nomenclature. 

Therefore, any identifier occurring within the block may, through 

a suitable declaration (see Section 9, Declarations), be specified 
to be local to the block in question. Such a declaration means 


that: 


a. The entity represented by this identifier inside the 


block has no existence outside the block. 


b. Any entity represented by the same identifier outside 


the block is completely inaccessible inside the block. 


within that block will be nonlocal to it; that is, the identi- 
fier will represent the same entity inside the block and in the 
level or levels immediately outside it, up to and including the 


level in which the identifier is declared. 


Since a statement within a block may itself be a block, the con- 
cepts of local and nonlocal to a block must be understood recur- 
sively. Thus, an identifier which is nonlocal to block A may or 


may not be nonlocal to block B in which block A is one statement. 


NESTED BLOCKS. Block B is said to be nested in block A if block 


Bisa statement in the compound tail of block A. 


DISJOINT BLOCKS. Block A and block B are said to be disjoint if 


neither is a statement in the compound tail of the other. 


SECTION 6 


STATEMENTS 


GENERAL. 
SYNTAX. 
The syntax for (statement) is as follows: 


ditional statement | conditional 
I 
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statement) | (iterative statement) 


SEMANTICS. 

The basic constituents of an Extended ALGOL Program are state- 
ments. Statements may be divided into three major groups: un- 
conditional, conditional, and iterative statements. Unconditional 
statements are much like imperative sentences in the English 
language whereby a particular action is directly specified. A 
conditional statement may be compared to a conditional sentence 

£ the condi 
tion and, depending upon the answer, select an appropriate course 


of action in the program. The iterative statement is used to 


describe a repetitive process. 


Statements are normally executed in the order in which they are 
written. However, the sequence of operations may be changed by a 
conditional statement, or by an unconditional statement which 


explicitly defines its labeled successor. 


NOTE 
Only unconditional statements are further 
discussed in this section. Conditional 
statements and iterative statements are 
discussed in Sections 7 and 8 respec- 


tively. 


UNCONDITIONAL STATEMENTS. 
SYNTAX. 


The syntax for {unconditional statement) is as follows: 


[he 


(unconditional statement) ::= (compound statement) | (block) | 
(basic statement) 
1 (basic statement) ::= (unlabeled basic statement) | (label) : 
(basic statement) 

3 {unlabeled basic statement) 235 {assignment statement) | 

{go to statement) | (dummy 
statement) | (fill statement) | 
(library call statement) | 
(double statement) | 

(procedure statement) | 

(stream procedure call 
statement) | (I/O statement) | 
(break-out statement) | 

{when statement) | (wait 
statement) | (fault statement) | 
zip statement) | 

{label equation statement) | 
{sort statement) | (merge 
statement) | (edit and move 


statement) | (disk I/0 


statement) | (data communication 
I/O statement) | (case 
statement) | q search statement) 


SEMANTICS. 
This group of statements includes (besides such basic constructs 
as the assignment, GO TO, and procedure statements) all the 


numerous kinds of input/output statements. 


In the following paragraphs, each statement listed above will be 


discussed separately. 


ASSIGNMENT STATEMENTS. 
SYNTAX. 


The syntax for (assignment statement) is as follows: 


1 (assignment statement) ::= (left part list) (arithmetic 
expression) | (left part list) 


(Boolean expression) 


3 (left part list) ::= (left part) | (left part list) (left 
part) | (partial word designator) « 
1 (left part) ::= (variable) < | (procedure identifier) « 


Examples: 


Assignment Statements: 


As- A +1 

Q.[30:1] - P>R 

P< "RESULT" 

Att Baa CAs ee o. 
x.[47:1] -— X- Z+ 0 


A =< 
Q.[ 3071] + 
XY EZ 


Left Parts: 


A < 
PROCID < 


SEMANTICS. 

The assignment statement causes the value represented by an ex- 
pression to be assigned to the variable appearing on the left of 
each assignment symbol. As shown in the last two examples above, 
one value may be assigned to two or more variables through the 
use of two or more assignment symbols. The operation of the 


assignment statement proceeds in three steps, as follows: 


a. The subscript expressions of the ieft part variabies 


are evaluated from left to right. 


b. The expression following the right-most assignment 


symbol is evaluated. 


c. The value of the expression is assigned to all the left 
part variables, with subscript expressions, if any, 
having values as determined in the first step. 
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TYPES. 

All variables in the left part list must be either exclusively of 
type BOOLEAN or of an arithmetic type, i.e., REAL, INTEGER, or 
ALPHA (which is treated as type REAL). (See pages 9-2 and 9-3, 
Type Declarations.) 


If the variables are of type BOOLEAN, the value to be assigned 


must be that of a Boolean expression. 


If there is a difference between the declared type of the left 
part variable and the value to be assigned to it, or the left 

part variables are of different arithmetic types, the Compiler 
will reconcile the differences, but this procedure may cause a 


change (rounding to integer) in the value assigned. 
The following rules apply: 


a. If the left part list is of type REAL and the 
expression value is of type INTEGER, the value is 


stored unchanged. 


b. if the ieft part iist is of type INTEGER and the 
expression value is of type REAL, the transfer 
function ENTIER (E +0.5, where E is the value 


of the expression) is automatically invoked and 


the value obtained is stored. 


ee if the left part list contains variables of different 
types, assignment of the value is executed from right 
to left. If, during this process, a real number is 
transferred to integer, this integer value is assigned 
to all following variables at the left of the integer 


variable, regardless of their type. 


RESTRICTIONS. 
Assignment to a procedure identifier may occur only within the 


body of a procedure defining the value of a function designator. 
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GO TO STATEMENTS. 
SYNTAX. 


The syntax for (go to statement) is as follows: 


1 (go to statement) ::= GO TO (designational expression) 


Examples: 


GO TO START 
GO TO SELECT 2] 
GO TO IF K = 1 THEN SELECT[ 2] ELSE START 


SEMANTICS. 

The GO TO statement provides an unconditional transfer to the 
point in the program defined by the designational expression. 
When the designational expression is a label, the statement 
causes a transfer to the point in the program indicated by the 
label. In the case of a more complex designational expression, 
the path taken depends upon the label produced by the expression 
(see pages 4-14 through 4-16, Designational Expressions). 


Labels must be declared in, and therefore are local to, the 
innermost block in which they appear as a statement label. A 
GO TO statement cannot lead from outside a block to a point in- 
side that block; each block must be entered at the block head 


so that the associated declarations can be invoked. 


The normal consecutive sequence of statement execution is unal- 
tered in the case of an undefined switch designator (see page 


3-3, Evaluation of Subscripts). 


DUMMY STATEMENTS. 
SYNTAX. 


The syntax for (dummy statement) is as follows: 


1 (dummy statement) ::= (empty) 
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Examples: 


Lies 
EXIT: 


SEMANTICS. 


A dummy statement executes no operation. It may serve to place 
a label. 


FILL STATEMENTS. 
SYNTAX. 
The syntax for (fill statement) is as follows: 


3 (fill statement) ::= FILL (array identifier) [ (row designator) | 
WITH (value list) 
1 (array identifier) ::= (identifier) 
3 (row designator) ::= * | (row),* 
3 (row) ::= (arithmetic expression) | (row), (arithmetic 
expression) 
3 (value list) ::= (initial vaiue) | (value list), (initial 
value) 
3 (initial value) ::= (number) | (string) | ocT (octal number) 
3 (octal number) ::= (octal digit) | (octal number) (octal digit) 
3 (octal digit) ::= 0[1|2|3|4]5]6]7 
Examples: 
FILL MATRIX[ *] WITH 458.54, +546, - 1354.54@6, 16@-12 
FILL GROUP[1,*] WITH .25, "ALGOL", "" ", OCTI4, "365" 
SEMANTICS. 


The FILL statement causes one row of an array to be filied with 


a list of specified values. 


ROW DESIGNATOR. The row designator indicates which row is to be 
filled by designating a specific value for each subscript posi- 
tion of the array row. The symbol * must appear in the right-most 


subscript position of the row designator. 


If the value of a row designator is other than integer, it is 
rounded to an integer in accordance with the rules applicable to 


assignment statements (see page 6-4, Types). 


VALUE LIST. Each initial value may have one of three forms 
(number, string, or octal number) , and a value list may contain 
any mixture of these forms. The concept of type does not apply 
to initial values, and transfer functions are not invoked, be- 


cause the array is fiilied as indicated. 
A number is converted to its octal equivalent, then stored. 


A string causes the six-bit code for each character in the string, 


other than the two string bracket characters at the ends, to be 
stored. The string may contain as many as eight characters. If 


fewer than eight characters are in the string, leading zeros 


are supplied. 


An octal number will be stored as such, and must not exceed 16 


digits. 


The number of initial values in the value list may differ from 
the number of elements in the row being filled. If the number of 
values is less than the number of elements, the elements with 

the largest subscript values retain their former values. If the 
number is greater than the number of elements, the right-most 


values in the value list are not used. 


RESTRICTIONS. 

The maximum number of words allowed in a single FILL statement 
is 1022. A defined identifier (see pages 9-7 through 9-11) must 
not be used ina FILL statement. There must be no space between 


OCT and the octal number which follows. 


LIBRARY CALL STATEMENTS. 
SYNTAX. 
The syntax for (library call statement) is as follows: 
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; a ; 
3 (library call statement) ::= ZIP ((program designator) 
{library designator) ) 


3 (program designator) ::= (arithmetic expression) 


3 (library designator) ::= (arithmetic expression) 


Examples: 


ZIP ("PROGIDT", "MCPROG" ) 
ZIP (A, "MCPROG" ) 
ZIP (ARA [I],B) 


SEMANTICS. 

Execution of a library call statement causes the program indicated 
by the program designator to be called out from the library tape 
indicated by the library designator. Immediately after causing 
the specified program to be called out, the calling program 
continues to be processed. The called program and calling pro- 


gram may then be multiprocessed. 


RESTRICTION. 

The values provided by the program designator and the library 
designator are interpreted as alpha variables. Therefore, these 
designators must be strings or arithmetic expressions which yield 
alpha values. Alpha values of less than seven characters are 


right-justified in a field of zeros. 


DOUBLE STATEMENTS. 
SYNTAX. 
The syntax for (double statement) is as follows: 


3 (double statement) ::= DOUBLE (<double expression), 5 
(most-significant variable), 
(least-significant variable) ) 
3 (double expression) ::= (double primary) | (double expression), 
{double primary), (double operator) | 
(double primary), (double expression), 
(double operator) 
le primary) ::= , (double constant) (most-significant 


portion), (least~significant portion) 


ho bo fy Ww bw ho 


{double operator) ::= + | - | x | / 
(double constant) ::= (number) 
(most-significant variable) ::= (variable) 
(least-significant variable) 235 (variable) 
{most-significant portion) ::= (arithmetic expression) 
(least-significant portion) ::= (arithmetic expression) 
Examples: 
Storing single-length variable into array: 
DOUBLE (X, 0, «, MATRIX [0], MATRIX [1]) 
Double-length equivalent of RESULT <« (X - Y x Z) 
xX. 33333333333 is: 
DOUBLE (HX, LX, HY, LY, HZ, LZ, x, -, , 
63333333333333333339, x) “, HRESULT, LRESULT) 
Matrix Multiplication: 
FOR I «- O STEP 1 UNTIL M DO 
FOR J <« O STEP 1 UNTIL N DO 
BEGIN 
THIGH <«- TLOW < 0O; 
FOR K<« O STEP 1 UNTIL R DO 
DOUBLE: (Al 1, 2- x KK). Al Ly 2x K + 2), BIK) 2x J], 
BLK, 2 x J + 1], x, THIGH, TLOW, +, <, 
THIGH, TLOW); 
DOUBLE (THIGH, TLOW, - :C/ 1, *2 sod] y. CLI, 2 x oe 2] 
END 
SEMANTICS. 


The DOUBLE statement assigns the double-length result of the 
double expression to the variables following the assignment opera- 


tor, i.e., to the right-hand part of the statement. 


Double-length values have the same range as real numbers. The 


difference is in the number of significant digits. Double-length 
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values may have a maximum of 26 significant octal digits. 


Double constants are decimal numbers which are converted to their 


equivalent double-length octal value. 


A double expression is a suffix Polish notation, i.e., an alge- 
braic notation, which -- in contrast to the parentheses notation 
of common algebra -- omits the use of parentheses, brackets, and 
braces, using only operands and operators, arranged in sequence 


in such a manner that operations are executed in order of priority. 


The evaluation of a double expression proceeds as follows. The 
occurrence of a double primary causes the double primary to be 
evaluated and the double-length value retained in the order in 
which the double primaries occur. The occurrence of a double 
operator causes the indicated arithmetic operation to be executed 
on the last two double primaries and the result to be saved. The 
evaluation continues in this fashion until the expression string 


is exhausted, leaving a double-length value as the result. 


PROCEDURE STATEMENTS. 
SYNTAX. 


The syntax for (procedure statement) is as follows: 


1 (procedure statement) ::= (procedure identifier) (actual 
parameter part) 

1 (procedure identifier) ::= (identifier) 
1 (actual parameter part) ::= (empty) | (<actual parameter list)) 
1 (actual parameter list) ::= (actual parameter) | 

{actual parameter list) 

(parameter delimiter) 

{actual parameter) 
2 (actual parameter) ::= (expression) | (array row) | 

(array identifier) | (procedure 


identifier) | (file identifier) | 
{format identifier) | (list identifier) | 


(switch identifier) | 


(switch file identifier) | 
(switch format identifier) | 
(switch list identifier) | 
(switch file designator) | 
(switch format designator) | 
{switch list designator) 

2 (parameter delimiter) ::= , | ) "(letter string)" ( 


3 (array row) ::= (array identifier) [ (row designator) | 


Examples: 


ALGORITHM123 (A + 2) 
ALGORITHM546 (A + 2) "AVERAGE PLUS TWO"(CALCRULE) 


SEMANTICS. 
A procedure statement causes a previously defined procedure, ex- 
cluding typed procedures, to be activated (called for execution). 


(See Section 10, PROCEDURE Declarations.) 


The procedure identifier references the procedure body which is 

to be executed. The actual parameter part contains a list of 

the actual parameters to be supplied to the procedure. A one-for- 
one correspondence must exist between the actual parameters in 

the actual parameter part and the formal parameters which appear 
in the formal parameter part of the PROCEDURE declaration. This 
correspondence is one of position, where the position of an 

actual parameter given in the procedure statement corresponds to 


the position of a formal parameter in the PROCEDURE declaration. 


A general description of the operation of the procedure statement 


can be given as follows: 


a. The formal parameters which are named in the VALUE 
part (call by value) of the PROCEDURE declaration 
are assigned the values of the corresponding actual 
parameters. These formal parameters are then treated 


as local to the procedure body. 


b. The formal parameters not named in the VALUE part 
(call by name ) are replaced, wherever they appear 
in the procedure body, by the corresponding actual 
parameters. Identifiers thus introduced into the 
procedure body may be identical to local identifiers 
already there. Each is handled in such a way, how- 


ever, that no conflict occurs. 


c. The procedure body, when modified as stated above, is 


then entered. 


The above discussion covers the basic operation of the procedure 
statement. A more detailed analysis is necessary, however, be- 
cause of the complexity of call by value, call by name, and exe- 


cution of the procedure body. 


VALUE ASSIGNMENT (CALL BY VALUE). The actual parameters that 

may be called by value are arithmetic, Boolean, and designational 
expressions. Where an arithmetic, Boolean, or designational ex- 
pression is given as an actual parameter, the expression is evalu- 
ated according to the rules previously defined, and the resulting 


value is assigned to the appropriate formal parameter. 


The evaluation of the actual parameters, and their subsequent 
assignment to the corresponding formal parameters, takes place 
according to the order indicated by the actual parameter list 
of the call statement. These assignments take place before entry 


is made into the procedure body. 


NAME REPLACEMENT (CALL BY NAME). The actual parameters that may 
be called by name are general components, expressions, and array, 
switch, switch format, switch file, procedure, file, format, and 
list identifiers. The action taken in a call by name differs 
from that ina call by value. Instead of a value being assigned, 
the actual expression or pertinent identifier of the actual para- 
meter replaces the corresponding formal parameter wherever it 
appears in the procedure body. <A detailed analysis of this mecha- 
nism reguires that each kind of alliowabie actuai parameter be 
examined. 
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If a simple variable which is an actual parameter is called by 
name, the corresponding formal parameter is replaced, wherever it 
appears in the procedure body, by the identifier of the simple 
variable. The value represented by the simple variable is refer- 
enced each time the variable is encountered during the execution 


of the procedure body. 


bl 
a) 
ny 


subscripted variable is an actual parameter, the subscripted 
h 


the proc 


iy) 


dure body wherever the correspond- 
ing formal parameter appears. The subscript expression remains 
intact and is evaluated each time the subscripted variable is 


referenced during the execution of the procedure body. 


If a partial word designator is given as an actual parameter, the 
partial word designator replaces the corresponding formal para- 
meter throughout the procedure body, and is referenced each time 


it is encountered during the execution of the procedure body. 


The formal parameter corresponding to a partial word designator 


must not appear in the left part of an assignment statement. 


Where the actual parameter is a function designator, the corre- 
sponding formal parameter is replaced by the function designator 
wherever the formal parameter appears in the procedure body. The 
function designator is evaluated wherever it is encountered during 


the course of execution of the procedure body. 


When an arithmetic, Boolean, or designational expression is called 
by name, the corresponding formal parameter is replaced by the ex- 
pression in question. This expression is evaluated wherever it is 


encountered during the execution of the procedure body. 


When the actual parameter called by name is an array identifier, 
the corresponding formal parameter is replaced by the array iden- 


tifier wherever the formal parameter appears in the procedure body. 


For those types of actual parameters thus far discussed, a call by 
value differs significantly from a call by name. A call by value 
(1) creates a quantity which is local to the procedure and which 


is identified by the formal parameter, (2) assigns to it the value 
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of the corresponding actual parameter, and (3) makes the corre- 
sponding actual parameter thereafter inaccessible to the procedure 
(unless the procedure is called again). A call by name, on the 
other hand, utilizes the actual parameter, or its constituents, as 
nonlocal quantities. Thus, the value of a quantity used as an 
actual parameter cannot be changed as a result of the procedure 
execution, provided that the corresponding formal parameter is 
called by value. If it is called by name, however, the actual 
parameter is accessible throughout the procedure and therefore 


can have its value altered. 


If a switch, switch file, switch list, or switch format identifier 
is used as an actual parameter, the corresponding formal parameter 
is replaced by the respective identifier wherever the formal para- 
meter occurs in the procedure body. Thus a switch, switch file, 
switch format which has been declared outside the procedure body 


can be accessed during the execution of the procedure body. 


When a procedure identifier is passed as an actual parameter, the 
corresponding formal parameter is replaced by the procedure iden- 
tifier wherever the formal parameter appears in the procedure 
body. Access can thus be made to another procedure which has 


been declared outside the procedure body. 


When a file, format, or list identifier is passed as an actual 
parameter, the corresponding formal parameter is replaced by the 
identifier of the actual parameter wherever the formal parameter 
appears in the procedure body. Input/output statements ina 
procedure body can thus utilize files, formats, and lists which 


have been declared outside the procedure body. 


RESTRICTIONS. 
Formal and actual parameters must correspond both in type and in 


kinds of quantities. 


A formal parameter which occurs as a ieft part variable in an 


assignment statement within the procedure body, and which is not 
called by value, can correspond only to an actual parameter which 


is a variable. 


6-14 


Any quantity that is nonlocal to a procedure is inaccessible to that 
procedure if that quantity is local to some other procedure; unless 


it has been declared OWN. 


A stream procedure identifier must not be used as an actual para- 


meter. 


f a formal parameter of a procedure is specified to be a procedure, 
then that parameter is termed a "formal procedure." The compiler 
cannot, in any way, check for a correspondence between formal and 
actual parameters of formal procedures. Consequently, if formal 


procedures are used within a program, great caution should be 


exercised to insure that correct parameters are passed to formal 
procedures. 


The example discussed beiow illustrates why no check can be made. 
In this example, note that, in Procedure PX, the Formal Procedure P 
may have various parameters, depending upon the actual procedure 

which is passed as a parameter. Because any procedure can be passed 


to correspond to a formal procedure, no check can be made on the 


parameters of the formal procedure. 


If, when calling on a formal procedure, the actual parameters used 

do no correspond to the formal parameters of the procedure to be 
executed, a System hang-up may occur. The reason for the hang-up 

is that the temporary storage area for the parameters will not be set 
up in the fashion expected by the procedure. (For example, a hang- 
up would occur in the program below if Bl were set to TRUE in either 
statement S2 or S3.) Consequently, great care should be exercised 

to insure that an error in parameters of formal procedures does not 


occur. An example follows. 
Example: 


BEGIN 
REAL R; 
LABEL START, Sl, $2, $3; 


BOOLEAN Bl, B2; 
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ARRAY A1[0:100], A2[0:100,0:100]; 
PROCEDURE Pl (Al); ARRAY A1[0]; 
All 1] — 13 
PROCEDURE P2 (A2); ARRAY A2[0,0]; 
A2[0,0] < 2; 
PROCEDURE P3 (R;, Bl); REAL R; BOOLEAN B1; 
IF Bl THEN R+ 1 ELSE R =< 2; 
PROCEDURE PX (Bl, B2, R;, Al, A2; P); 
; BOOLEAN Bl, B2; REAL R; 
ARRAY A1[0O], A2[0,0]; 
PROCEDURE P; 
IF Bl THEN P(Al) ELSE IF B2 THEN P(A2) ELSE P(R; B1); 


START: 

Sl: Bl <« TRUE; B2 <- TRUE; PX(Bl, B2, R, Al, A2, Pl); 
S2 Bl <« FALSE; B2 + TRUE; PX(B1, B2, R, Al, A2, P2); 
S3 Bl « FALSE; B2 < FALSE; PX(Bl, B2, R, Al, A2, P3); 


END. 


OSTREAM PROCEDURE CALL STATEMENT. 
SYNTAX. 


The syntax for (stream procedure call statement ) is as follows: 


3 (stream procedure call statement ) 235 (stream procedure 
identifier) 
(<stream actual 
parameter list)) 


ee) (stream procedure identifier) ::= (identifier) 


3 (stream actual parameter list) ::= (stream actual parameter) | 
(stream actual parameter 
list), (stream actual 
parameter) 

3 (stream actual parameter) 23 (stream value parameter) | 


(stream name parameter) 
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3 (stream value parameter) 235 {arithmetic expression) | 
{Boolean expression) 

3 (stream name parameter) :3= (array identifier) | (array row ) | 
(variable) |. (file identifier) | 
{indexed file identifier) | 
(switch file designator) | 
{index switch file designator) | 
{format identifier) | (switch 
format designator) 

3 (indexed file identifier) ::= (file identifier) (arithmetic 

expression)) 
2 (indexed switch file designator) ::= (switch file designator) 


(arithmetic expression) ) 


Examples: 


EDIT(FILEID, A) 


fa Tw I = > : 4 T+ n a1 
E(AL*] 5 X 5 ttt, ALL + 2}) 


SP(SWF[2] (0), F1(0)) 


SEMANTICS. 

A stream procedure call statement causes the execution of a stream 
procedure body which has been previously defined by a STREAM 
PROCEDURE declaration (Section 11). It supplies the actual para- 
meters to the stream procedure and then transfers control to the 


stream procedure body. 


A stream procedure call statement must have an actual parameter 


part which may not be empty. 


A one-to-one correspondence must exist between the actual parameters 
in the stream procedure call and the formal parameters appearing in 


the STREAM PROCEDURE declaration. 


The formal parameters may be called by name or by value. Accord- 


ingly, the actual parameters are in two classes: 
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a. Stream value parameters which correspond to the VALUE part 


of the STREAM PROCEDURE declaration. 


b. Stream name parameters which correspond to the call-by- 


name formal parameters of the STREAM PROCEDURE declaration. 


STREAM VALUE PARAMETERS. Stream value parameters may be only arith- 
metic or Boolean expressions. The corresponding formal parameters 
are given the values of the stream actual parameters when the 


stream procedure call statement is executed. 


STREAM NAME PARAMETERS. Stream name parameters may be array iden- 
tifiers, file identifiers, indexed file identifiers, indexed switch 
file designators, variables, array rows, format identifiers, switch 
format designators, and switch file designators. When the stream 
procedure call statement is executed, absolute addresses are 


supplied to the corresponding formal parameters. 


If a stream name parameter is a file identifier or a switch file 
designator, an address of a pointer word is supplied. This pointer 
word contains the address of the file buffer. If a stream name 


parameter is a variabie, the address of that variable is supplied. 


It should be noted that arrays are mapped in memory by rows. Ele- 


ments of a row are contiguous, but rows are not contiguous. 


If a stream name parameter is an array identifier, the address 


supplied is: 


a. The address of the lowest element of the array fora 


single-~dimensional array. 


b. The address of the lowest element of the first (highest- 


level) block of descriptors for a multidimensional array. 


If a stream name parameter is an array row, the address supplied 


is that of the lowest element of that row. 


If a stream name parameter is an indexed file identifier or indexed 
switch file designator, the address supplied is that of the left- 
most character of a word in the current buffer being used by the 
indicated file. The word is designated by the value of the arith- 
metic expression in the indexed file identifier or indexed switch 
file designator. The words in the buffer are numbered starting 
with zero. If the value of the arithmetic expression is of a type 
other than INTEGER, it is converted to an integer in accordance 


with the rules applicable to assignment statements (see page 6-4, 


Types). 


A declared format specification may be changed during processing 
by means of a stream procedure. In such cases, a format identifier 
or a switch format designator may be passed as an actual parameter. 
The address supplied will be that of the first word of the speci- 


fied format array. 


Designational expressions, switch identifiers, switch file identi- 
fiers, switch format identifiers, switch list identifiers, switch 
list designators, list identifiers, and call by name expressions 


are not allowed as actual parameters to stream procedures. 


INPUT/OUTPUT STATEMENTS. 
SYNTAX. 
The syntax for (I/O statement) is as follows: 


S (1/0 statement ) 235 (read statement ) | (write statement ) | 
(release statement ) | (space statement ) | 
(close statement ) | (rewind statement ) | 


{lock statement ) 


SEMANTICS. 

Input /output statements cause values to be communicated to and 

from a program and provide programmatic control of most files and 
their corresponding r/O units. Disk files and data communications 
files are handled by the disk and data communications I/O statements 


respectively. 
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READ STATEMENTS. 
SYNTAX. 


The syntax for (read statement ) is as follows: 


(read statement) ::= READ (direction) ({input parameters) ) {action 
labels) 
(direction) ::= (empty) | REVERSE 
(input parameters) ::= (file part) (buffer release) , (format and 
list part) | (file part) (buffer release) 
(file part) ::= (file identifier) | (switch file designator) 
(buffer release) ::= (empty) | [NO] 
(format and list part) ::= (format) | (format) , (I/O list) | * , 
{t/o list) | (free-field part) , 
(I/O list) | (arithmetic expression) , 


ee 


lo tw 


hw fio fw 


(array row) 
(format ) ::= (format identifier) | (switch format designator) 
(I/O list) ::= (list) | (list identifier) | (switch list 


lw feo 


designator) 


(free-field part) ::= (free-field repeat indicator) / (free-field 


ee 


\ 
ys 
(free-field repeat indicator) 735 empty > | [arithmetic 


fue 


expression) | 
(free-field field width) ::= empty » | [<arithmetic expression) | 
(action labels) ::= [(end-of-file label) : (parity label)] | 
[<end-of-file label)] | [: (parity label)] | 
Cempty ) 
3 (end-of-file label) ::= (designational expression) 


Jo fw 


(parity label) ::= (designational expression) 


JLo 


Examples: 


READ (direction) (input parameters)): 


READ REVERSE (FILEID) 
READ REVERSE (SWFILEID[AxB], FMT, I,J,K) 


READ ((input parameters)): 


READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 


(FILEID ) 

(FILEID, FMT) 

(FILEID, FMT, LISTID) 

(FILEID, *, LISTID) 

(SPOFILE, FMT, A,B,C) 

(SPOFILE, /, SIZE,LENGTH ,MASS ) 

(FILEID, FMT, 7,2,A,B,C,ARRY[A],B+C,F) 

(FILEID, /, J,FOR I-O STEP 1 UNTIL J DO ARRY[T]) 
(FILEID,*,A,B,C,FOR A-B*A STEP C UNTIL J DO ARRY[I]) 
(SWFILEID[ IF X>N THEN X+N ELSE 0], 25, ARRY[2,*]) 
(FILEID, /, SWLISTID[T]) 

(FILEID, FMT, SWLISTID[ 1 |) 

(SPOFILE, SWFMT[ 16], A,B,C) 


READ (<input parameters)) (action labels): 


READ 
READ 
READ 
READ 
READ 
READ 
READ 
READ 


SEMANTICS. 


(FILEID) [EOFL:PARL | 

(PILEID, /,; Ls5M,N,ARRY[2]|) [EOFL] 

(FILEID[ 3] [NO]) [ :PARL ] 

(SWFILEID[ 14] [NO], A+EXP(B),ARRY[I,J,*]) [:PARSWL[M] | 
(FILEID [NO], SWFMT[6+J], LISTID) [EOFSWL[ Q*3] ] 
(SWFILEID[ A+B], *, SWLISTID[ 2+H/K]) [EOFL:PARL | 
(FILEID[NO]) [EOFSWL[I]:PARSWL[ J] | 

(SWFILEID[ 4] [NO], SWFMT[3], SWLISTID[I*J]) [:PARL] 


The READ statement causes values to be assigned to program variables. 


It can also place information in strings defined in the referenced 
FORMAT declaration. 


Direction must be indicated only when magnetic tape is to be read in 


the reverse direction. In all other cases, the direction part of the 


statement must be empty. 
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INPUT PARAMETERS. 


The file part specifies which file is to be read. 


A READ statement with only a file part causes one logical record to 
be passed, i.e., such a statement acts as a SPACE (FILEID, 1) state- 


ment. 


The buffer release indicates whether the input buffer is to be re- 
filled after it has been read and edited. If [NO] is used, the 
buffer is not refilled, and the same buffer will be the next one 


accessed. 


FORMAT AND LIST PART. The format and list part specifies the action 


to be taken on input data. 


A format part without an I/O list indicates that the referenced 
FORMAT declaration contains a string into which corresponding charac- 
ters of the input data are to be piaced; the string in the referenced 


FORMAT declaration is replaced by the string in the input data. 


A format part with an I/O list designates that the input data is to 
be edited according to the specifications of the referenced FORMAT 


declaration and assigned to the variables of the referenced list. 


The symbol *, together with an I/O list, specifies that the input 
data is to be processed as full words, and that it is to be assigned 
to the variables of the referenced list without being edited. The 
number of words read is determined by the number of variables in the 
list or the maximum record size, whichever is smaller. Note that 


the input data may not have the flag bit set. 


An arithmetic expression with an array row designator specifies that 
input data is to be processed as full words, and that it is to be 
assigned to the elements of the designated array row without being 
edited. The number of words read is determined by the number of 


elements in the array row, the buffer size, or the value of the 


arithmetic expression, whichever is smallest. Note that the input 


data may have the flag bit set. 


A READ statement with a free-field part must have an empty free- 
field repeat indicator and an empty free-field width: the stand- 
alone slash (/) followed by an I/O list designates free-field input. 
Such input does not require a FORMAT declaration to provide editing 
specifications for the data. Editing specifications in this case 
are determined by the format of the data itself (see free-field 
data on page 6-24). 


ACTION LABELS. 

Action labels provide a means of transferring control from a READ 
(or SPACE) statement when an End-of-File condition, an irrecoverable 
parity error, or a format error occurs. <A branch to the label pre- 
ceding the colon takes place when an End-of-File condition occurs. 

A branch to the label following the colon takes place when an irre- 
coverable parity error occurs, or when a format error condition is 
encountered (e.g., an R phrase or U phrase input error, or an ille- 
gal list element corresponding to a dynamic (V or *) format editing 


phrase). See page 9-21. 


CONSOLE TYPEWRITER CONSIDERATIONS. 
When a READ statement is executed where the file is assigned to the 
console typewriter, a message is typed on the SPO and the program 


is temporarily suspended. 
The form of the message on the SPO follows: 
# (job specifier) ACCEPT 


The operator responds to the above message by typing a message as 


follows: 


{mix index) AX (input message) 


The (input message » which follows AX is then read as specified by 
the READ statement and the program is re-initiated. The buffer 
will contain an end-of-message character following the last char- 
acter of the (input message). This end-of-message character has 


the same code as the code for the character «+. 


FREE-FTELD DATA. 
SYNTAX. The syntax for (free-field data) is as follows: 


3 (free-field data) ::= (field) (field delimiter) | (free-field 
data) (field) (field delimiter) 
3 (field) ::= (number) | (string) | % (octal number) | / | * | 
(empty ) 
3 (field delimiter) ::= , | (letter) {any proper string not 
| containing a comma} , | {if the field 
is a slash (/), the end of the current 


record serves as a field delimiter} 


Examples: 


1; 

2.53 

2.48 @ -20, 

2 @ 34, 

"THIS IS A STRING", 
$12347 


1 DELIMITER, 

2.5 ANY COMMENT OR NOTE NOT CONTAINING A COMMA, 
2.48 @ -20 VALUE FOR Z* (-3), 

2 @ 34 ET CETERA, 

"THIS IS A STRING" THIS IS A COMMENT, 

% 12347 AN OCTAL NUMBER, 

* TERMINATES READ, 


SEMANTICS. Ail Free-Field Input is in the form of free-field data. 
Each field, except the slash (/), is associated with the list 


element to which it corresponds according to position. 
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A free-field data sentence is in no way affected by the end of 

a record. That is; a field or field delimiter may be carried over 
from one record to another: Continuation from record to record 

is automatic until the LIST is exhausted or an asterisk (*) field 
is encountered. Unused characters (if any) on the last record 


read are lost. 


All blanks in free-field data except those in strings are compieteliy 
ignored. 


Fields are handied as follows: 


a. Numbers. A number which is represented as an INTEGER will 
be converted as an INTEGER unless it is larger than 
largest allowable INTEGER, in which case it will be con- 
verted as REAL. Numbers which contain a decimal fraction 


will be converted as REAL. 


b. Strings. Strings may be of any length. Each list element 
will receive six characters until either the list or the 
string is exhausted. If the number of characters in the 
string is not a multiple of six, then the last list element 
receives the remaining characters of the string. The 
string characters are stored right-justified in the list 


elements. 


c. Octal Numbers. Octal numbers are placed right-justified 
in the list element, unchanged. The largest octal number 
allowed is 3777777777777777-. A non-octal digit will 
terminate the number, treating the remainder of the field 


as comment. 


dad. Empty. An empty field will cause the corresponding list 


element to be ignored. 


e. Slash (/). The slash (/) field will cause the remainder 
of the current record to be ignored. The record following 


the slash is considered the beginning of a new field; 


therefore, the slash field does not require (or recognize) 
any field delimiter other than the end of the record in 
which it occurs. A slash field has no effect on list 
elements. The slash is a field by itself and must not be 
placed within another field or between a field and its 


delimiter. 


Asterisk (*). The asterisk (*) field terminates the read 
statement. The program continues with the next statement 
in sequence. The list element corresponding to the 
asterisk is left unchanged, as well as any subsequent 


elements in the list. 


LOGICAL VALUES. For the purpose of Free-Field Input, an INTEGER 1 


(one) must be used in lieu of the logical value TRUE, and an 


INTEGER O (zero) must be used in lieu of the logical value FALSE. 


The example below demonstrates the Free-Field Input facility: 


Example: 


Consider each of the following lines as individual records: 


+ 


23 . O @ + 


La. 3 O32 


, O, X, Al »4 A 5 B, / CARD 124 
15 IGNORED, ZERO, 

% 177, $30, "THIS IS A STRING", ""™", 
"STRING", *, 2.7) 8.4, 
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If the above records (free-field data) were read with the statement 


READ(FILEID,/,FOR I+O STEP 1 UNTIL 18 DO A [T]}) 


values would be assigned to A as follows: 


[0] 
[1] 
[2] 
[34 
[4] 
[5] 
[6] 
L7J 
[8] 
[9] 
[10] 
[i] 
A [12] 
A [13] 
A [14] 
A [15] 
A [16] 
A [17] 
A [18] 


PrP Pr Pr Pr Pr PF PF PF FP PP PE 


123@29 
123@29 
123@32 

O 
Unchanged 
Unchanged 

y 

a 
Unchanged 
177 (octal) 
30 (octal) 
OOTHIS I 
OOS A ST 
OOOORING 
0000000" 
OOSTRING 
Unchanged 
Unchanged 
Unchanged 


The occurrence of the asterisk (*) field on the last record termin- 


ates the read statement without assigning any values to A [16], 


A [17], or A[18]. The value of I (the controlled variable of the 


FOR clause) will remain at 16. 


RELEASE STATEMENTS. 


SYNTAX. 


The syntax for (release statement) is as follows: 


3 (release statement) ::= RELEASE ((file part)) | RELEASE 
(<file part), (word count )) 
2h 


fluo 

oN 
o 
IK 
(2a 
QO 
° 
5 
ct 

NU 


$= {arithmetic expression) 


vss man J 


Examples: 


RELEASE(FILEID) 
RELEASE (FILEID, AE) 


SEMANTICS. 
If the file is an input file, the RELEASE statement causes the 
buffer to be refilled with new input. 


If the file is an output file, the RELEASE statement causes the 


information in the buffer to be written on the output unit. 


The number of words released is determined by the buffer size, 
unless a RELEASE statement indicates a word count; thereafter, the 
buffer size is considered equal to the last word count indicated 


by a RELEASE statement. 


RESTRICTIONS. 

The word count of a RELEASE statement must not exceed the buffer 
Size. Due to the fact that READ, SPACE, and WRITE statements 

cause I/O descriptors associated with a file to be altered, RELEASE 
statements should not be mixed with READ, SPACE, or WRITE state- 
ments referencing the same file. One exception to this is that on 
files using only one buffer and containing only unblocked records, 
RELEASE statements may be freely mixed with READ, SPACE, and WRITE 
statements. RELEASE statements are not allowed on disk files when 


operating under the File Security System, and if used, the program 


will be terminated. 


SPACE STATEMENTS. 

SYNTAX. 

The syntax for (space statement) is as follows: 

3 (space statement) ::= SPACE ({file part), (number of records) ) 
{action labels) 


3 (number of records) ::= (arithmetic expression) 


Examples: 
SPACE (FILEID, 5) [ LEONF:LPAR] 
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SPACE (FILEID, -3) [LEOF:LPAR | 
SPACE (FILEID, A + B - C) 


SEMANTICS. 
The SPACE statement is used to bypass input logical records without 


reading them. 


The value of the arithmetic expression determines the number of 
records to be spaced and the direction of the spacing. If the 
expression is positive, the records are spaced in a forward direc- 


tion; if negative, in the reverse direction. 


WRITE STATEMENTS. 
SYNTAX. 


The syntax for (write statement) is as follows: 


Me (write statement) ::= WRITE (output parameters )) {action labels) 
3 {output parameters) ::= «file part) (carriage control ) (file 
part) {carriage control) , (format and 
list part) 
3 carriage control) ::= [PAGE] | [DBL] | [No] | (skip to channel) | 
(empty) 
3 (skip to channel) ::= [arithmetic expression) | 


Examples: 


WRITE (<output parameters)): 


WRITE (FILEID) 

WRITE (SPOFILE, FMT, LISTID) 

WRITE (FILEID [NO], FMT) 

WRITE (SPOFTLE, 10, ARRY[3,*]) 

WRITE (SWFILEID[O], X+Y-Z, ARRY[X,1,*]) 
WRITE (SPOFILE, /, LISTID) 

WRITE (FILEID, FMT, LISTID) 

WRITE (SWFILEID[ 3] [PAGE] ) 

WRITE (FILEID, /; A;B,C) 

WRITE (FILEID, SWFMT[ A*I]) 


WRITE (FILEID [DBL], /[15], FOR I+1 STEP 1 UNTIL 100 
DO ARRY[TI]) 


WRITE (SWFILEID[I] [J], [K]/[L], SWLISTID[ M+N]) 
WRITE (FILEID, *, LISTID) 

WRITE (FILEID, [54+1]/, SWLISTID[ 4] ) 

WRITE (FILEID, /, LISTID) 

WRITE (FILEID, *, A,B,C) 

WRITE (FILEID [NO], FMT, SIN(X)+COS(X) ,EXP(Y+3) ) 


WRITE (<outputparameters ») (action labels): 


WRITE (FILEID, FMT, A,B;C,D+SIN(E)) [ :PARL | 
WRITE (FILEID, FMT, LISTID) [:PARSWL[M] | 
WRITE (SWFILEID[1], SWFMT[2], SWLISTID[3]) [:PARSWL[ 4] ] 


SEMANTICS. 
The WRITE statement causes output of information in the form of com- 


putational results and messages. 


OUTPUT PARAMETERS. 
The file part specifies the file to be used. 


The carriage control may be included to allow for paper control on 
the line printer. If the specified output unit is not a line 


printer, carriage control is irrelevant and is ignored. 


CARRIAGE CONTROLS. [ PAGE | causes the printer to skip to channel 1 


after each line of print. 


Skip-to-channel causes the printer to skip to the channel indicated 


by the value of the arithmetic expression after each line of print. 
[DBL] causes the printer to double space after each line of print. 
[ NO | causes the printer to suppress spacing after each line of print 


RESTRICTION. 
The arithmetic expression in skip-to-channel requites an integer 
value from 1 through 11. If the arithmetic expression yields a 


value other than integer, it will be rounded to an integer in 
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accordance with the rules applicable to the evaluation of subscripts 


(see page 3-3, evaluation of subscripts). 


FORMAT AND LIST PART. 
The format and list part, which is discussed in the syntax on page 


6-20, specifies the action to be taken on the output data. 


A format identifier alone indicates that the referenced FORMAT dec- 
laration contains one or more strings; slashes, or X phrases which 


constitute the entire output. 


A format identifier followed by an I/O list designates the variables 
in the referenced list are to be placed in a format according to the 
specifications of the referenced FORMAT declaration and written as 
output. The referenced FORMAT declaration may contain strings as 


noted above. 


The symbol * followed by an T/O list specifies that the variables 


in the referenced iist are to be processed as full words, and are 
to be written as output without being edited. The number of words 
written is determined by the number of variables in the referenced 
list or the maximum record length, whichever is smaller. When un- 
blocked records are used; the maximum record length is the buffer 


size. 


An arithmetic expression used with a row designator specifies that 
the elements of the designated array row are to be processed as 

full words and are to be written as output without being edited. 

The number of words written is determined by the number of elements 
in the array row, the maximum record length, or the absolute value 
of the arithmetic expression, whichever is smallest. When unblocked 


records are being used, the maximum record iength is the buffer size. 


The free-field part followed by an I/O list designates that the 
elements in the referenced list are to be output ina variable 
free-field format. Such output does not require a FORMAT declara- 


tion to provide editing specifications for the list elements. 
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Editing specifications in this case are determined by the free- 
field repeat indicator (abbrev. RP), the free-field field width 
(abbrev. FW), and the magnitude and sign of each individual list 
element. A non-empty RP indicates that each record or line of 
output is to display RP list elements, with each list element edited 
over a field width of FW or, if FW is empty, over a field width 
calculated from the buffer size and the value of the RP. An empty 
RP indicates that each record or line of output is to display as 
many list elements as possible, with each list element edited over 
a field width of FW or, if FW is empty, over a field width which 
varies from list element to list element and which provides the full 
numeric Significance of each list element. In all cases, records 
or lines are successive outputs until the list is exhausted, and 


each list element is considered to be numeric information. 


The free-field part takes one of these four forms: /, [RP]/; /LFW]; 
or [RP|/LFw]. Fach form is precisely equivalent to a FORMAT declar- 
ation FMT (n(rUw.d/)), where n is an integral value greater than 


zero and r, w, and d are determined as follows (B represents the 


Form Determination of Components 
7- w= 18,de2+1,r =n, where n is an integral 


value greater than zero. 


LRP |/ w = d = MAX(1,MIN(21, ENTIER(B/ABS(RP)-2))), 
r = MIN(ABS(RP), ENTIER(B/3)). 


/[ Fw] w = d = MIN(63, ABS(FW)), r = ENTIER(B/(w+2)). 
[RP]/[ Fw] w = d = MIN(63, ABS(FW)), r = MIN(ABS(RP), 
ENTIER(B/(w+2))). 
Some special points: 
a. The single departure from the ordinary U phrase is the 


insertion of a comma between the displayed list element and 


its trailing blank. 
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b. If any of the above forms yield r = O; then the buffer is 
output and the WRITE is terminated. 


c. Both RP and FW are treated as variables of type INTEGER, 
and if either value is of type REAL, the value is rounded 
in the same manner as an array subscript (see page 3-3, 


evaluation of subscripts). 
d. An RP or FW whose value rounds to zero is considered empty. 


e. Tf, due to field width (w) restrictions, the list element 
cannot be suitably edited, the field is filled with "x"'s, 


WRITE statements which do not use the free-field format and which 
do not reference a FORMAT declaration provide a faster output oper- 


ation than those which require editing of the list elements. 


ACTION LABELS. 

Action labels provide a means of transferring control from a WRIT 
statement when a format error occurs. A branch to the label follow- 
ing the colon takes place if an illegal list element is used to eval- 


uate a dynamic format phrase, e.g., a "Q" for V10.5 or a -4 for I*. 


CONSOLE TYPEWRITER CONSIDERATIONS. 

When a WRITE statement is executed where the file is assigned to the 

console typewriter, the output will be typed on the SPO. Writing is 

terminated when the end-of-message character (code for +) is encount- 
ered in the message. This character is placed into the first charac- 
ter of the word immediately following the last output word. However, 


the program can place the character <« in the output string if desired. 


SYNTAX. 


The syntax for (rewind statement ) is as follows: 
3 (rewind statement) ::= REWIND (file part)) 


Example: 


WIND (FILEID) 


a ee = 2 
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SEMANTICS. 
The REWIND statement causes the referenced file to be closed and 


if tape, to be rewound. The I/O unit will remain under program 
control. 
RESTRICTION. 


On paper tape files, the REWIND statement may be used only on input. 


LOCK STATEMENTS. 
SYNTAX. 


The syntax for (lock statement ) is as follows: 


3 (lock statement) ::= LOCK ((file part), RELEASE) | LOCK 
(<file part), SAVE) | LOCK (file part)) 


Examples: 


LOCK (FILEID, RELEASE) 
LOCK (FILEID, SAVE) 


SEMANTICS. 
The LOCK statement causes the referenced file to be closed. If 
the file is tape, it is rewound and a system message is printed 


to notify the operator to remove the reel and save it. 


If the file is not a disk file, the unit is made inaccessible to 


the system until the operator resets it again manually. 
The three forms of the LOCK statement are equivalent. 


CLOSE STATEMENTS. 
SYNTAX. 


The syntax for (close statement) is as follows: 


oo (close statement) ::= CLOSE (<file part), RELEASE) | 
CLOSE ({file part), SAVE) | 
CLOSE (file part)) | 
CLOSE (file part), *) | CLOSE (file 
part), PURGE) 
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Examples: 


CLOSE (FILEID, RELEASE) 
CLOSE (FILEID, SAVE) 
CLOSE (FILEID, *) 

CLOSE (FILEID, PURGE) 


SEMANTICS. 
The CLOSE statement causes the referenced file to be closed. The 


following actions take place: 


a. Ona card output file, a card containing an ending label 


is punched. 


b. On a line printer file, the printer is skipped to channel 
1; an ending label is printed, and the printer is again 


skipped to channel l. 


c. On an unlabeled tape output file; a tape mark is written 


after the last block on tape. 


d. On a labeled tape output file, a tape mark and ending 


label are written after the last block on tape. 


If only the file part is used, or the SAVE or RELEASE is used, the 
1/0 unit is released to the system. If the file is a tape file, 


the tape is rewound. 


If the symbol * is used, the file must be a tape file. The I/O 
unit remains under program control and the tape is not rewound. 


This construct is used to create multi-file reels. 


If PURGE is used, the file is closed, purged, and released to the 


system. 


When the symbol * is used on multi-file input tapes, the following 


action can take place: 


a. If the last reference to a file was a READ or SPACE 


FORWARD statement and a CLOSE ({<file part), *) is 
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executed, the tape is positioned forward to a point 


just following the ending label of the file. 


b. If the last reference to the file was a READ or SPACE 
REVERSE statement and a CLOSE (file part), *) is ex- 
ecuted, the tape is positioned to a point just in front 


of the beginning label for the file. 


c. If the CLOSE ((file part), *) is executed after the 
End-of-File branch has been taken; no action is performed 


to position the file. 


When the CLOSE ((file part), *) is used on a single-file reel, the 
action taken is the same as for a multi-file reel. The next refer- 
ence to this file must be a READ in the opposite direction from 
that of the prior READ on the file. A system halt can occur if 


this rule is violated. 


BREAK-OUT STATEMENTS. 
SYNTAX. 


The syntax for (preak-out statement ) is as follows: 


3 (break-out statement ) ::= BREAK 


Examples: 


BREAK 
ITF X = 2 THEN BREAK 


SEMANTICS. 

The break-out statement causes all information necessary to restart 
the program, from the point where the statement appeared, to be 
written on magnetic tape. The program continues in sequence after 


execution of the break-out statement. 


WHEN STATEMENT. 
SYNTAX. 
The syntax for (when statement) is as follows: 


3 <when statement) ::= WHEN ((seconds)) 
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S) (seconds) 23 {arithmetic expression) 


Examples: 


WHEN (X) 
WHEN (10) 


SEMANTICS. 

The WHEN statement provides a means for a program to suspend itself 
from processing for a given number of seconds. The parameter 
(seconds ) specifies the number of seconds to suspend the program 


using this statement. 


ka 


a >» nila 
nA DLW ro 


When a program executes a WHEN statement, the MCP suspends processing 


ing to t Su 
sequently, after the designed number of seconds have elapsed, control 
is returned to the program and processing commences at the point 


immediately following the WHEN statement. 


WAIT STATEMENT. 
SYNTAX. 


The syntax for (wait statement) is as follows: 


3 (wait statement) ::= WAIT (absolute address), (mask)) 
3 (absolute address) ,3= (arithmetic expression) 


3 (mask ) 235 (arithmetic expression) 


Examples: 


WAIT (ADDRESS, MASK) 
WAIT (REALSTREAMADDR(A), 1023) 


SEMANTICS. 


suspend its processing until a specified Re-Initiate condition 


exists. 


The first parameter (absolute address) of the WAIT statement must 
provide the absolute address of a test word. This address must be 
in the fifteen low-order bits of the parameter, while the remaining 


bits are ignored. 
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The second parameter (mask) of the WAIT statement is a mask which 
the test word is compared against. If a bit in the test word is 
to be tested, the corresponding bit in the value of the parameter 


(mask ) must be set to ONE (1). 


A Re-Initiate condition exists whenever any corresponding bit posi- 
tion of the test word and the mask expression both have a value of 
ONE (1). The value of the text word must be changed by another 
program since the program executing the WAIT statement has been 


suspended. 


When a program executes a WAIT statement, the MCP suspends processing 
of that program, but allows other processing to take place. Periodi- 
cally, the MCP examines the test word to determine if a Re-Initiate 
condition exists. When this occurs, control is returned to the 
program at the point immediately following the WAIT statement. If 
the test word value is not changed by some other program, the program 


which executed the WAIT statement is suspended indefinitely. 


THE DELAY FUNCTION. 
SYNTAX. 


The syntax for (delay function) is as follows: 


3 “delay function) ::= DELAY (address), (mask) ,(time)) 

3 (address) ::= (arithmetic expression) 

3 (mask ) 235 (arithmetic expression) 

3 (time ) 23> {arithmetic expression) 

SEMANTICS. 

The DELAY function is roughly equivalent to repeated use of the WHEN 
statement in conjunction with a test. It may be thought of as a WAIT 
statement with "timeout" capabilities. The value returned by the 


function is O if the "wait" condition was satisfied, and 1 if the 
function "timed out", In the syntax above, (time) is expressed in 


seconds. 
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FAULT STATEMENT. 
SYNTAX. 


The syntax for (fault statement) is as follows: 


3 (fault statement) ::= (fault type) < 0 | 
(fault type) = (designational expression) 

3 (fault type) ::= EXPOVR | INTOVR | INDEX | FLAG | ZERO 
Examples: 

EXPOVR < O 

INE OVR.  INTTOOBIG 

INDEX <- SELECTPATH [1] 

FLAG -— IF K = 1 THEN FINIS ELSE REDO 
SEMANTICS. 


The fault statement provides the means by which a programmer may 
specify programmatic action for any of the specific program errors. 
The program errors are associated with each fault type as shown in 
table 6-1. The fault statement requires a fault declaration (de- 


scribed on page 9-42). 


Table 6-1 


Program Errors for Fault Types 


EXPOVR Exponent overflow 
INTOVR Integer overflow 


INDEX Invalid index 
FLAG Flag bit 
ZERO Divide-by-~zero 


If one of the program errors occurs and there is an associated 
(fault type) <- (designational expression) statement, transfer of 
control to the evaluated designational expression will take place 


provided: 
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ae The error occurred during the execution of a statement 


within the scope of the label. 


b. The error occurred in a procedure that was called by a 
procedure call statement that is within the scope of the 


label. 


Transfer of control will not take place if it will result in the 


entering of a block other than through the block head. 


The designational expression is evaluated when the fault statement 
is executed and not at the time that the error occurs. If multiple 
fault declarations are made (i.e., in nested blocks) when an error 
occurs, only the most local declaration for that type will be 


examined. 


The (fault type) « O statement is the means of turning off the 
transfer control fault statement. After this form of fault state- 
ment has been executed, the program will be terminated if the 


specific error occurs. 


ZIP STATEMENT. 
SYNTAX. 


The syntax for (zip statement) is as follows: 


3 (zip statement) ::= ZIP WITH (array row) | 


ZIP WITH (file part) 


Examples: 


ZIP WITH CONTROLCARD[ I, *] 
ZIP WITH FILEID 


SEMANTICS. 

The ZIP WITH (array row) statement causes information in the desig- 
nated array row to be recognized as control and/or program para- 
meter card information. The information in the array row must be 
in the BCL (6-bit) format as it would appear on the control program 


parameter cards. The letters CC may be used in lieu of a question 
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mark (2), but only one may appear in the array row. The infor- 
mation in the array row appears as a single punched card, but is 
not limited to 72 characters. The information that would be con- 
tained on more than one control card may be put into the array row, 


but a semicolon must be used to delimit the end of a card. 


The control information to be utilized by the ZIP WITH (array row) 
statement should pertain to only one Compiler or Object Program. 


The last card in the array row must contain the following: 
END. 


After the ZIP WITH (array row) statement has been executed, the 
Object Program that executed the statement continues processing, 
while the MCP examines the control information in the array row. 
If the MCP finds an error in this control information, an appro- 
priate error message is typed on the supervisory printer to notify 


the operator. 


The ZIP WITH (file part) statement causes information in the de- 
Signated disk file identified by (file part) to be considered as 
a control deck. Each logical record must be one card, i.e., 10 
words. Logical record zero (0) must be a control card and must 
contain in its tenth word the logical record number (a binary 
integer) of the next control card in the control deck including 
LABEL cards. Each successive control card, likewise, points to 
the next control card. There must be an END control card in the 
control deck as the last card which points to itself. The proper 


format of a control deck on disk is illustrated in figure 6-1. 


When the ZIP WITH (file part) statement is executed, the Object 
Program which executed the statement continues processing, while 
the file (file part) is passed to the MCP. If a file other than 

a disk file is referenced, the ZIP statement is ignored. If the 
referenced disk file is not on disk, the ZIP statement is ignored. 
The MCP does not check to ensure that the control deck is properly 


arranged; this is a responsibility of the programmer. 
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ZH-9 


Logical Record 


O 
30 word 
segment 


ZIP WITH (file id) CONSTRUCT 


WD 1 WD 2 WD3 WD4 wWD5 WD6 WD7 WD 8 wWD9Q9 wD 10 


? EXECUTE ANY/JOB 
? LABEL INPUT 
(DATA CARDS) 


? COMPILE A/B WITH ALGOL 
? DATA CARD 
(SOURCE LANGUAGE CARDS) 


? DATA DATA 


? END. 


Figure 6-1. Format for Control Deck 


On Disk 


1 (in binary) 
9 (in binary) 


10 (in binary ) 
17 (in binary) 


21 (in binary) 


21 (in binary) 


After execution of the ZIP WITH (file part) statement is completed, 
the control deck referenced by the designated file is purged from 


the disk directory. 


LABEL EQUATION STATEMENT. 
SYNTAX. 


The syntax for (label equation statement) is as follows: 


3 (label equation statement) ::= FILL (file part) WITH 
(label equation information) 
3 (label equation information) 235 {multi-file identification) | 


(multi-file identification), 


(multi-file identification), 
(file identification), 
(reel number) 
(multi-file identification), 
(file identification), 
<reel number), (date) | 
{multi-file identification), 
{file identification), 
(reel number), (date), 
{cycle number) | 
(multi-file identification), 
(file identification), 
(reel number), (date), 
{cycle number), 
{output media digit) 
3 (multi-file identification) ::= (arithmetic expression) | * 
3 (file identification) ::= (arithmetic expression) | * 
3 {reel number) ::= (arithmetic expression) | * 
3 (date) ::= (arithmetic expression) | * 
3 (cycle number) ::= (arithmetic expression) | * 


3 (output media digit) ::= (arithmetic expression) | * 


Examples: 


FILL FID WITH "MULTI", "FILEID" 
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PILL FI WITH *, "FILEID", *, 66123 
FILL SFI[I] WITH X, Y, R, D, C, 2 


SEMANTICS. 

The label equation statement provides the means to programmatically 
specify the file LABEL information associated with a file (file 
part). This statement is a programmatic program parameter card. 

To have effect, a label equation statement must be executed before 


the designated file is open; otherwise, the statement is ignored. 


When a label equation statement is executed, the label equation 
information is assigned to the file (file part) and is used in 
association with the input/output statements using the specified 
asterisk, that part of the information will remain as it was before 


the statement was executed. 


All label equation information, except the output media digit, 

must be in the format required in a standard label. The values 
which the output media digit may have and their meanings are listed 
in table 6-2. The values of the multi-file and file identification 
parts are interpreted as ALPHA and can contain up to seven charac- 


ters in the variable or string. 


SORT STATEMENT AND MERGE STATEMENT. 
Because of the requirements of the SORT and MERGE statement para- 
meters, these two statements are explained in Section 12 of this 


manual. 


EDIT AND MOVE STATEMENT. 
SYNTAX. 


The syntax for (efit and move statement) is as follows: 


3 (edit and move statement) ::= (edit and move read) | 
(edit and move write) 
3 (edit and move read) ::= READ ((array row), 
(format and list part)) | 
READ (array row) , 
(free field part) ) 
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Table 6-2 
Values for Output Media Digit 


{output media digit) Meaning 
value 


2 | Labeled magnetic tape 
4 Line printer or printer backup tape 
5 Labéled designated output file 
6 | Printer backup tape 
vi Unlabeled designated output file 
8 Unlabeled paper tape 
9 | Unlabeled magnetic tape 
10 |Random disk file 
11 | supervisory printer 
12 {Serial disk file 


Update disk file 

Data communications file 

Printer backup disk 

Printer backup tape or disk 

Line printer or printer backup disk 


Line printer or printer backup tape or disk 


Special forms message required 


3 (edit and move write) ::= WRITE ((array row), 
(format and list part) ) 


Examples: 


READ (A[*], FMT, LST); 
WRITE (xA[I,*], 25, BL *]); 
READ (DD[*], /, R, A); 
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SEMANTICS. 

The edit and move statement provides the means of utilizing the 
editing features of READ and WRITE statements without using I/O 
files and buffer areas. In effect, the (array row) designated 


in the edit and move statement is analogous to a buffer area. 


When an (edit and move read) statement is executed, data in the 
designated array row is edited and placed in the list. The format 
part determines what editing is to take place as the data is moved 


from the array row to the list. 


When an <edit and move write) statement is executed, data from 
the list is edited and placed into the designated array row. The 
data is edited as specified by the format part as it is moved 


from the list to the array row. 


If the edit and move statement calls for more than one physical 


record, the array row will be reused when the new record is re- 


iy ar { if ii DLN e 
SYNTAX. 


The syntax for (disk I/O statement) is as follows: 


3 (disk I/O statement) ::= (disk read statement) | 
(disk write statement) | 
(disk read seek statement) | 
(disk space statement) | 
(disk rewind statement) | 
(disk close statement) | 
(disk lock statement) 


SEMANTICS. 

The disk I/O statements allow the programmer to utilize the disk 
for creating files and using created files. A record pointer is 
associated with the I/O statements. This record pointer is always 
set to the address of the logical record that is accessed by a 


READ or WRITE statement. 
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DISK READ STATEMENT. 
SYNTAX. 


The syntax for (disk read statement) is as follows: 


3 (disk read statement) :: READ (direction) 
((disk input parameters) ) 
{action labels) 
3 (disk input parameters) ::= (file part) (record address and 
release part), 
(format and list part) | 
(file part) 
«record address and release part) | 
(file part) 
(record address and release part), 
(free field part) 
3 (record address and release part) ::= [ (address) | | [ NO] | 
(empty) 
3 <address) ::= (arithmetic expression) 


Examples: 


READ REVERSE (OLDFILE, FRMAT, LST) 
READ (FREEFILE, / , FREELIST) [ :PAR] 
READ (NEWFILE[NO], *, BILST) [ EOF:PAR] 
READ (DATA[ NEXT], NOREC, ARA[I,*]) 


SEMANTICS. 
A disk READ statement causes data to be read from a disk record 
and placed into the list variables as specified by the format. The 


record pointer may be adjusted by the READ statement. 


If a REVERSE direction is used in the READ statement, the value 
of the record pointer is decreased by one prior to performing 
the read. If the value of the record pointer is N when a read 
reverse is executed, the record pointer is set to N-1 before the 
read is performed. At the completion of the read reverse, the 


record pointer remains at N-l. 
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If an (address) is used in the record address and release part, 
the (address) specifies the relative address in the file of the 
record to be read and edited as specified in the READ statement. 
The record pointer is set to (address) before the read is per- 
formed. The record pointer is not adjusted after the read is 


executed. An (address) must be used when a file is declared RANDOM. 


If an (address) is not specified and NO is not used, the record 
read will be the one pointed to by the record pointer. After the 
read has been executed, the record pointer is adjusted to point 


to the next record in the file. 


If NO is used, the record read will be the one to which the record 
pointer is set. After the read has been executed, the record 


pointer will not be adjusted. 


The format and list part have the same meaning for disk I/O that 
they have for all other I/O's. 


The action labels provide a means of transferring control from a 
READ statement when an End-of-Fiie or Parity condition occurs. The 
label preceding the colon is branched to on an End-of-File condi- 
tion. The label following the colon is branched to on a Parity 


Error condition. 


An End-of-File condition occurs whenever an attempt is made to read 
a record of which the address is greater than the EOF indicator, 

or less than zero. The EOF indicator is the address of the highest 
record address written when the file was created. This indicator 


is updated whenever additional records are written onto the file. 


DISK WRITE STATEMENT. 
SYNTAX. 


The syntax for (disk write statement) is as follows: 


3 (disk write statement) ::= WRITE (<disk output parameters) ) 
[ <action labels) | 
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3 (disk output parameters) ::= (file part) (record address part) | 
(file part) (record address part), 
(format and list part) 


3 (record address part) ::= [{address)] | (empty) 


Examples: 


WRITE (FILEX[ NEXT], *, LIT) 
WRITE (INVNTRY[ PARTNO[ , 60, ARA[ *]) 
WRITE (NEWFILE, FRMT, LST) 


SEMANTICS. 
Disk WRITE statements cause information to occur as output accord-= 


ing to the format from the list specified. Whenever the WRITE 


statement is executed, the record pointer will be adjusted. 


If an (address) is specified, the record pointer is set to this 
relative address prior to executing the WRITE statement. The 


(address) must be provided if the specified file is declared RANDOM. 


If the record address part is empty, the WRITE statement will cause 
the output to be written onto the file at the present record pointer 


location. 


The record pointer is always adjusted to the next record location 


following the execution of the WRITE statement. 


The 
has for other I/O's. However, if it is empty, the contents of 

the current buffer are written onto the disk. An empty format and 
list part should only be used with unblocked files where the infor- 
mation is placed into the buffer through the use of a stream pro- 


cedure. 


An End-of-Pile condition occurs if an attempt is made to write a 
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record which has an address outside of the file, as declared. The 
End-of-File action label provides the programmer with the means of 


branching to a label if this condition occurs. 


DISK READ SEEK STATEMENT. 
SYNTAX. 


The syntax for (disk read seek statement) is as follows: 


3 (disk read seek statement) ::= READ SEEK ((file part) 


[<address) | ) 


Example: 


READ SEEK (PARTFILE[ NEXT] ) 


SEMANTICS. 

The principle use of the READ SEEK statement is with files declared 
RANDOM. It provides the means of filling a buffer in anticipation 
of a READ or WRITE action on the record as specified by the 
(address). 


When each READ SEEK statement is executed, records are subsequently 
read into buffer areas. The records are queued according to the 
order in which they were requested. If more READ SEEK statements 


are executed than there are buffers, records are lost, starting 


at the head of the queue. 


When a READ is executed, the record addressed is searched for, 
starting at the head of the queue. If the first record is released 
or lost and the next record becomes the head of the queue. This 
sequence continues until the record is found or the queue is empty. 
If the record is not in the queue, the addressed record is then 


read from the disk file. 


When a WRITE statement is executed, a copy of the record may be 
required in core before the WRITE is performed (explained under 
file declarations for disk files in Section 9). If a WRITE is 


ona oF tha Folloawin arr Anniine 
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a. If a copy of the record is not required, the record 


at the head of the queue would be lost. 


b. If a copy of the record is ina buffer area, that buffer 
will be used as an output buffer and all records in the 


queue preceding the record written are lost. 


c. If a copy of the record is required, an implicit READ 


takes place and all records in the queue are lost. 
An example of the misuse of a READ SEEK statement follows: 


READ (PARTFILE[3], . . -)3 


READ SEEK (PARTFILE[ 18] ); 


WRITE (PARTFILE[ 3], . . .)3 


Consider the file to be declared RANDOM, blocked, and with one 
buffer area. The actions that would take place as the statements 


shown are executed would be: 
a. The physical record containing reccrd [3] would be read. 


b. The READ SEEK on record [18] would cause record [ 3] 
to be lost. 


c. The WRITE of record [3] would require the physical record 
ontaining record [3] to be reread into the buffer, des- 


c 
troying record [18]. 


Programs containing such statements are not desirable and should 


be avoided. Used properly, the READ SEEK statement can be of great 


value. 


If a READ SEEK statement is performed on a SERIAL or UPDATE file, 
the READ SEEK statement specifies that the next record to be pro- 


cessed is given by the (address). 
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DISK SPACE STATEMENT. 
SYNTAX. 
The syntax for (disk space statement) is as follows: 


3 (disk space statement) ::= SPACE ((file part), (number of records) ) 


3 (number of records) ::= (arithmetic expression) 


Examples: 


SPACE (FILEID, 5) 
SPACE (FILEID, -5) 
SPACE (FILEID, CNTR) 


SEMANTICS. 
The SPACE statement provides the means of adjusting the value of the 
record pointer. When the SPACE statement is executed, the record 


pointer is adjusted by the value of the arithmetic expression. 


DISK REWIND STATEMENT. 
SYNTAX. 


The syntax for (disk rewind statement) is as follows: 


3 (disk rewind statement) ::= REWIND ((file part)) 


Example: 


REWIND (FILEID) 


SEMANTICS. 
The REWIND statement causes the record pointer to be set to the 


address of the first record in the file. 


DISK CLOSE STATEMENT. 
SYNTAX. 
The syntax for (disk close statement) is as follows: 


3 (disk close statement) ::= CLOSE ({file part)) | 
CLOSE ({file part), RELEASE) | 
CLOSE ((file part), SAVE) | 
CLOSE ((file part), *) | 
CLOSE (file part), PURGE) 


6-52 


Examples: 


CLOSE (FILEID) 

CLOSE (FILEID, RELEASE) 
CLOSE (FILEID, SAVE) 
CLOSE (FILEID, *) 

CLOSE (FILEID, PURGE) 


SEMANTICS. 
A CLOSE statement causes the buffer areas reserved for the file to 
be returned. Also, if the file is a temporary file, the disk 


space for the file is returned. 


If a CLOSE with PURGE statement is executed on a permanent file, 
that file is removed from the disk directory and the disk space 


is returned. 


¢ LOCK STATEMENT. 
SYNTAX. 
The syntax for (disk lock statement) is as follows: 


3 (disk lock statement) ::= LOCK ((file part)) | LOCK (file part), 
RELEASE) | LOCK ((file part), SAVE) 


Examples: 


LOCK (FILEID) 
LOCK (FILEID, RELEASE) 
LOCK (FILEID, SAVE) 


SEMANTICS. 
A LOCK statement causes a temporary file to be made permanent. All 
of the LOCK statements cause the same action on the file. When it 


is executed, an entry is made into the disk directory for the file 


and the buffer areas reserved for the file are returned. 


DATA COMMUNICATIONS I/O STATEMENT. 


SYNTAX. 
The syntax for (data comm r/o statement) is as follows: 
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3 (data comm T/O statement) ::= (data comm read statement) | 
{data comm read lock statement) | 
(data comm read seek statement) | 
(data comm write statement) | 
(data comm write lock statement) | 
(interrogate function) | 
{data comm close statement) | 
(data comm rewind statement) | 
(data comm seek statement) | 


(data comm release statement) 


SEMANTICS. 

The data communications 1/0 statements allow the programmer to uti- 
lize the data communications equipment and converse with remote 
station devices. It is the responsibility of the Object Program to 
provide for various types of abnormal conditions that might occur. 
The MCP will make available to the user program all of the informa- 
tion that is known as to the status of a particular unit. This in- 


formation is contained in a word called the "status word." 


STATUS WORD. 
FORMAT. 


The format of the status word is as follows: 


FIELD DEFINITION 
O:1 Flag bit = 0. 
1:7 Undefined. 
8:1 = O - a data transmission control unit (DTCU) 


is present. 
9:4 Terminal unit number (1 through 15). 


1331 = 0 - automatic code translation was performed 
by DTCU on this 1/0 operation (remote 


stations device code to BCL). 
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FIELD (cont) 


DEFINITION (cont) 


14:4 Buffer address in terminal (0 through 15). 

2241 = 1 - station busy. 

25¢h = 1 - abnormal condition sensed by the 
adapter. 

24:1 = 1 - buffer is Read Ready. 

Zo v4 = 0 - I/O operation terminated by a group mark. 

= - I/0 operation terminated by a Full 

Buffer condition with no group mark. 

2001. = 1 - BREAK key depressed during output. 

epee = 1 - buffer is Write Ready. (The last 
message written did not contain a 
group mark. ) 

28:1 = 1 - input error (buffer overflow). 

29:1 = 1 - write in process on remote station. 

SO 4 = 1 - remote station is not ready. 

ee ie Undefined. 

SEMANTICS. 


The status word is provided to the user program as the first word 


in the I/O buffer on each READ statement execution on a data 


communications file. 


It can also be referenced implicitly by the 


use of the Interrogate function which has been provided for Object 


Programs which utilize data communications equipment. Any of the 


undefined fields on the status word will not be cleared to zero. 
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DATA COMMUNICATIONS READ STATEMENT. 
SYNTAX. 


The syntax for (data comm read statement) is as follows: 


3 (data comm read statement) ::= READ (<data comm input parameters) ) 


{data comm input action labels ) 


3 (data comm input parameters) ::= (file part ) (data comm record 
address and release part), (format 
and list part) | (file part) 
{data comm record address and 
release part), (free field part) 

3 (data comm record address and release part) ::= ((terminal 

buffer specifier) 
(wait part >) | 
(empty > 

eS! (terminal buffer specifier) i3= (arithmetic expression) | (empty ) 

3 {wait part >) $35 »(arithmetic expression) | Cempty > | * 

3 (data comm input action labels) 23> [ <no-input label) 3 
_ €abnormai-condition iabei)] 

| [no-input label) | | 
| :<abnormal~condition 
label) | | (empty ) 
3 (no-input label) ::= (designational expression) 
3 (abnormal-condition label) ::= (designational expression) 
Examples: 
READ (DATACOM, 29, DATA[*]) 
READ (REMOTE(O&TUL9:44:4] & BUF[14:44:4]), FMT, LST) 
READ (REMOTE(OLDSTATUS ,2), 8, AL[*]) [NOIN:WRONG | 
READ (B300(0,1), FMT1, LST2) [NOGO:wHY] 

SEMANTICS. 


The data communications READ statement is the means by which infor- 
mation in a data communications buffer which has been attached to 
the Object Program by the MCP can be read and transferred to the 


list under control of the format. 


6-56 


The terminal buffer specifier indicates to the MCP the physical 
terminal and buffer from which the data is to be transferred. The 
terminal number must be in field 9:4 and the buffer number must be 
in the field 14:4 of this arithmetic expression. The terminal unit 
and buffer number specified must have integral values that corres- 
pond to equipment available in the hardware configuration. 

Tf the terminai buffer specifier is zero or ieft empty, data will 

be read from any terminal buffer which has h 

Object Program by the MCP. This option makes it possible to read 
from any attached terminal buffer without performing READ statements 


on individual terminal buffers. 


The wait part is checked to determine what action is to be taken 


on the action label for a no-input condition. 
A branch to the no-input label will be made if: 


a. A READ statement could not be executed within the time 
specified by the wait part because another job had exclu- 


Sive use of the terminal buffer. 


be. A READ statement could not be executed within the time 
specified by the wait part because the terminal buffer 


did not contain any input. 


If a READ statement which does not contain a no-input label is 
executed, the job will be suspended until the terminal buffer 


becomes Read Ready, regardless of how long that might be. 


A branch to the abnormal-condition label will be made after the 
atement has been executed if any of the abnormal conditions 
are sensed. The Object Program must examine the status word pro- 
vided on the READ, or obtained through the use of the Interrogate 
function. Some of the conditions that will cause an abnormal’ 


condition branch are: 


a. <A parity error sensed on input. 


b. An end-of-transmission, line-loss,;, or disconnect. 


Cs A buffer overflow occurred when information was entered as 


input before the buffer was read. 


If the READ statement does not include an abnormal-condition label, 
and any abnormal condition is sensed, that program will continue 


without any indication that the condition occurred. 


The wait part has significance only if the READ statement includes 
a no-input label. The value of the wait part is the number of 
seconds that the program is willing to wait for a READ READY condi- 


tion of the terminal buffer. 


If the wait part is an *, a READ operation will be performed if 
the terminal buffer is Read-Ready, Idle, or Busy. This allows a 


program to clear a busy terminal buffer. 


This construct will only accomplish this if there has been no SEEK 
performed on the file and the terminal buffer specifier is not 
Zero. Tf the buffer is Read-Ready, Idle, or Busy, the READ will be 
performed. Otherwise, normal action will take place (i.e., branch- 
ing to the time-out label). The status word preceding the data in 
the program's input buffer (if the READ is performed ) will indicate 
the B 487 buffer condition prior to the read. 


Tf the wait part is empty in a READ statement that has a no-input 
label, the wait part value is equivalent to a wait part value of, 


for all practical purposes, infinity. 


DATA COMMUNICATIONS READ LOCK STATEMENT. 
SYNTAX. 


The syntax for (data comm read lock statement) is as follows: 


3 (data comm read lock statement ) ::= READ LOCK (<data comm input 
parameters )) (data comm 


action labels) 
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Examples: 


READ LOCK (REMOTE(OLDSTATUS), 8; A[*]) [NOGO:WHyY | 


SEMANTICS. 

The purpose of a data communications READ LOCK statement is to 
allow a program to attach itself exclusively to a terminal buffer. 
This could be used if more than one remote station is attached to 
the terminal buffer (multi-point line). Programs that share such 
a terminal buffer must observe some mutually developed discipline. 
If a program uses the LOCK construct, the program should release 
the terminal buffer by excluding the word LOCK from the READ or 


Th 
i 


he LOCK function 


Ay 


The presence of LOCK on a READ or WRITE statement causes the 


following action: 


a. Suspends the job until no other job has exclusive use of 


the specified terminal buffer. 


b. Establishes this job as the exclusive user of the terminal 


buffer. 


After exclusive use has been established, the READ or WRITE is 


performed. The exclusive use status is retained. 


The absence of LOCK on a READ or WRITE statement causes the following 


action: 


a. Suspends the job until no other job has exclusive use of 


the specified terminal buffer. 
b. Performs the READ or WRITE operation. 


c. Releases the exclusive use status after the READ or WRITE 
has been performed if this job had exclusive use of the 


specified terminal buffer. 
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The semantics of the remainder of the READ LOCK statement are 


identical to the data communications READ statement. 


DATA COMMUNICATIONS READ SEEK STATEMENT. 
SYNTAX. 


The syntax for (data comm read seek statement ) is as follows: 


ee) (data comm read seek statement) ::= READ SEEK (data comm input 
parameters)) (data comm 


action labels) 


Example: 


READ SEEK (B300 (STATWORD) ) 


SEMANTICS. 

The data communications READ SEEK statement provides the programmer 
with the means of establishing this program as the exclusive user 
of the specified terminal buffer. In addition, the MCP will immed- 
iately fill the buffers of the specified file when a Read Ready 


Interrupt is received from the specified terminal buffer. 


Only the file part and terminal buffer specifier are used in the 
READ SEEK statement. If other parts are included, they are ignored 
(including the action labels). 


If the terminal buffer specifier is zero or empty, no action is 


performed and the program continues in sequence. 


If the specified terminal buffer already has an exclusive user, no 


action takes place and the program continues in sequence. 


If a READ SEEK had previously been performed on the specified file, 
the effect of the previous SEEK is negated. Therefore; a second 
READ SEEK will cause the previously specified terminal buffer to be 
released from the status caused by the first SEEK. 
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The seek feature allows asynchronous buffering of input from data 
communications equipment. When a READ is performed on a file which 
has been SEEKed, the terminal buffer specifier of the READ state- 


ment is ignored and the first-in buffer is returned to the program. 


DATA COMMUNICATIONS SEEK STATEMENT. 
SYNTAX. 


The syntax for (data comm seek statement) is as follows: 


iS) (data comm seek statement ) ::= SEEK ((file designator) 
(<terminal buffer) ) ) 


SEMANTICS. 

The SEEK statement provides the means for establishing a program as 
the exclusive user of a specified terminal buffer. In addition, the 
SEEK statement instructs the MCP to immediately fill any buffer as- 
Signed to the specified file, if ever a Read Ready Interrupt is 


received from a specified terminal buffer. 


The SEEK statement differs from the data communications READ SEEK 

in the following way. If a READ SEEK is executed, the specified 
remote terminal is established as the sole user of the file's buffers. 
The SEEK statement merely specifies that the designated terminal 
buffer should be included as one of the Bousees of input to the 

file's buffers. Thus, it is recommended that a SEEK be used instead 
of a READ SEEK. Immediate handling of Read Ready Interrupt is still 
implied. 


A particular restriction should be noted in regard to the SEEK state- 
ment. That is: the number of terminal buffers associated with a 
file, at any given time, can be no greater than the number of buffers 


assigned to the file. 


As is the case with the READ SEEK, a SEEK referencing terminal buffer 


0/O will cause all stations on the file to be "unsought." 


Example: 


SEEK (DCOUT (USER) ) 
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DATA COMMUNICATIONS WRITE STATEMENT. 
SYNTAX. 


The syntax for (data comm write statement) is as follows: 


3 (data comm write statement ) ::= WRITE ((data comm output 
parameters)) (data comm output 
action labels) 

3 (data comm output parameters) ::= (file part) (data comm record 

address and release part ) | 
(file part) (data comm record 
address and release part), 
(format and list part ) 
3 (data comm output action labels) ::= [ <output-impossible label) 

: (break label) | | 

[ <output-impossible label) | 

| [: (break label ) | | (empty ) 

3 <output-impossible label) ::= (designational expression) 

3 (break label) ::= (designational expression) 

Examples: 

WRITE (REMOTE (A[O]), 8, A[*]) 
WRITE(TYPER(STATWRD,15), FMT, LST) [NOTNOW:HOLDIT | 
SEMANTICS. 


The data communications WRITE statement provides the means of sending 
information to a remote station. The MCP will transfer the data in 
the list under control of the format to the specified terminal 


buffer. 


The terminal buffer specifier must be present in all data communica- 
tions WRITE statements. The format of the expression must be the 


same as specified for the READ statement for data communications. 
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The terminal number and buffer number must correspond to equipment 


available in the hardware configuration. 


The wait part is checked to determine what action is to be taken 


when an output-impossible condition is sensed. 


oe 


A branch to the output-impossible label will be made if: 


a. A WRITE statement could not be executed within the time 
specified by the wait part because another job had exclu- 


sive use of the terminal buffer. 


WRITE statement could not be executed within the time 


specified by the wait part because all of the output 
buffers are full. 


c. <A WRITE statement could not be executed because of the 
output buffers being full and the occurrence of one of 


the following conditions: 
1) The specified terminal buffer is Read Ready or Busy. 


2) An end-of-transmission, line-loss; or disconnect 


occurred. 


If conditions a or b above occur and no output-impossible label has 
been provided, the job will be suspended until the WRITE can be 


performed. 


If condition c above occurs and no output-impossible label has been 


provided, the job will be terminated. 


A branch to the break label will be made on each WRITE statement 
after the BREAK key has been depressed on the remote station. This 
action will continue until a READ statement is executed on the 
specified terminal buffer. If no break label is included in the 
WRITE statement; the Object Program will not be aware that the 
BREAK key has been depressed. 


When a branch is made to the output-impossible label, the reason 
for the branch must be determined by the examination of the status 
word. The status word can be obtained through the use of the In- 


terrogate function only. 


The wait part has no significance unless an output impossible label 


has been provided. 


If the wait part is absent in a WRITE statement containing an output- 
impossible label, the value of the wait part is considered to be, 


for all practical purposes, infinity. 


DATA COMMUNICATIONS WRITE LOCK STATEMENT. 
SYNTAX. 


The syntax for (data comm write lock statement ) is as follows: 


3 (data comm write lock statement) ::= WRITE LOCK ((data comm output 
parameters) ) (data comm 


output action labels) 


Example: 
WRITE LOCK (ALLMINE(A[0O],SEC), 8, A[*])[NOPE:WHYNOT | 


SEMANTICS. 

The data communications WRITE LOCK statement allows a program to 
establish the specified terminal buffer to be assigned exclusively 
to this job. The semantics of the WRITE LOCK are the same as for 
the READ LOCK statement. 


The semantics for the remainder of the WRITE LOCK statement are 


the same as for a normal WRITE statement. 


INTERROGATE FUNCTION. 
SYNTAX. 


The syntax for (interrogate function) is as follows: 


3 (interrogate function) ,t= STATUS (<terminal buffer specifier), 
{action part)) | STATUS (file 
designator)) | STATUS ((terminal buffer 


specifier)) | STATUS (array row)) 


oO {action part) ::= {arithmetic expression) 


Examples: 


9:4heh] &g [14:44:24], TZ) 


SEMANTICS. 
The purpose of this construct is to yield a value which is the status 
word. Since this is a function, the construct is an arithmetic ex- 


pression. 


STATUS (({terminal buffer specifier) , (action part)). In this form, 


the terminal buffer specifier must be specified and must have the 


same format as any status word. 
The action part can only have a value of zero; one; three, or four. 


If the action part value is zero; the value of the function will be 
the copy of the MCP's last status word at the time of the last in- 


terrupt on the specified terminal buffer. 
Tf the action part value is one, the following action takes place: 


a. The MCP will perform a Hardware Interrogate I/O operation 


on the terminal buffer. 


b. The MCP!'s copy of the status word will be updated and the 
function will yield a copy of this newly-updated status 


word. 


The action part with values of three or four are added to allowa 
program - which may be handling many remote users - to create a 


free file. The action taken by the MCP for each value follows: 
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a. If the value is three, then the USERCODE entry for the 
program is made empty. Any disk files that are entered 


into the disk directory are made free files. 


b. If the value is four, then the program's USERCODE table 
is reestablished. Any disk files entered into the disk 
directory will be entered with the latest USERCODE entry. 


The data communications Interrogate function has been extended to 
update the USERCODE table with the user code associated with terminal 
buffer specified. This allows a program - which handles more than 
one user - to create and/or access disk files for the specific user 


code of each user, 


STATUS (<file designator)). The purpose of this function is to allow 
a program to examine the status word in the front of an output file 
buffer if a branch to the first of the two action labels on a WRITE 


statement should ever occur. 


Branching to the aforementioned label could occur due to one of two 


conditions: 


a. If the time limit given by the (wait part) has expired 
before output. 


b. If an abnormal condition, such as a not ready condition, 
existed when the write was attempted on the specified 


statement. 


If, during the execution of a program, control should be transferred 
to the first label designated by a data communication WRITE statement, 
a STATUS (file designator») should be performed. If the result re- 
turned by this function is zero, then a timeout occurred. Otherwise, 
the result will be a status word which reflects the nature of the 


abnormal condition and the terminal buffer on which it occurred. 


STATUS (<terminal buffer specifier)). The purpose of this function 


is to allow a program to determine the (user code) of the user logged 


6-66 


in on a particular terminal buffer. If someone has indeed logged in 
on the designated terminal buffer, his user code will be returned as 
the result of executing this function; otherwise, the algebraic 


value -1l1 will be returned. 


STATUS (array row)). The purpose of this function is to provide a 
program with the ability to determine the addresses of the stations 
which are assigned to it and also to determine the (user code)s of 


the persons logged in on those stations. 


When this function is performed, the array row specified is assigned 
values as follows. The [9:9] in every other word in the array row, 
starting at the first word, is set to the address of an assigned 
station, up to as many as there are stations assigned. The word 
following each word set to a terminal buffer address is filled with 
the user code of the station designated by the preceding word. If 

a station is assigned but no user has logged-in, the algebraic value 


-l1 will be provided in place of the user code. 


The value returned from the function equals twice the number of 
stations assigned to the program. Consequently, unless an array 

row is of insufficient size, the value specifies the number of words 
in the array row which have values resulting from the execution of 


the STATUS function. 


NOTE 
The word STATUS may be used as declared in a program. 
If it is used, then the Interrogate function cannot be 


used within the scope of the declaration using STATUS. 


DATA COMMUNICATIONS CLOSE STATEMENT. 
SYNTAX. 


The syntax for (data comm close statement ) is as follows: 


3 <data comm close statement) ::= CLOSE (file part )) | CLOSE (file 
part), RELEASE) | CLOSE (file 
part), SAVE) | CLOSE (file part), 


Example: 


CLOSE (REMOTE) 


SEMANTICS. 
All CLOSE statements cause the same action for data communications 
files. The buffer areas are returned and the effect of a READ SEEK 


statement is released. 


DATA COMMUNICATIONS REWIND STATEMENT. 
SYNTAX. 


The syntax for (data comm rewind statement) is as follows: 


3 (data comm rewind statement) ::= REWIND ((file part)) 


Example: 


REWIND (REMOTE) 


SEMANTICS. 
A REWIND statement causes the core buffer areas to be returned and 


the effect of a READ SEEK statement is released. 


DATA COMMUNICATIONS RELEASE STATEMENT. 
SYNTAX. 


The syntax for (data comm release statement) is as follows: 


(data comm release statement > :3= RELEASE (<terminal buffer 


specifier) ) 


SEMANTICS. 

The data communications RELEASE statement is provided to give an 
object program the ability to detach itself from a remote terminal 
buffer. That is, if a program performs a RELEASE statement, the 
designated station will no longer be assigned to the program after 
the statement is performed. Also, if the program has performed a 
SEEK or READ SEEK, the RELEASE will cancel the effect of that pre- 


viously performed statement. 
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CASE STATEMENT. 
SYNTAX. 


The syntax for (case statement) is as follows: 


3 (case statement) ::= (case statement header) (compound statement) 
3 (case statement header) ::= CASE (arithmetic expression) OF 
Examples: 

CASE I OF 


BEGIN (statement ,); 
(statement 3 


(statement re, END; 


SEMANTICS. 
The CASE statement provides the programmer the means for selective 


execution of one of a series of statements. 


At execution time, the value of the arithmetic expression selects 
which of the statements within the compound statement will be 
executed. Only that statement is executed and control is then 
transferred to the statement following the END of the compound 
statement. The statements within the compound statement can be 

any statement, including compound statements, blocks, CASE state- 
ments, and null statements. (A null statement is a dummy statement 


which occupies a position in a CASE statement. ) 


The value of the arithmetic expression, I, must be such that 0 < 
T<N. If the value is less than zero or greater than N (N is the 
value of the last statement number), the Object Program will termin- 


ate with an invalid index. 


SEARCH STATEMENT. 
SYNTAX. 


The syntax for the {search statement) is as follows: 
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3 (search statement) ::= SEARCH ((file part), (array row)) 
3 (file part) ::= (file identifier) | (switch file designator) 


Examples: 


SEARCH (DISKFILE, A[*]) 
SEARCH (DISKFILESWITCH [I], A[*]) 
SEARCH (DISKFILE, B[J,*]) 


SEMANTICS. 

The SEARCH statement provides a programmer with the means to deter- 
mine the existence of a disk file which is accessible under the 

File Security System. The SEARCH statement causes the MCP to perform 
a disk directory search for the specified file. Values are assigned 
to the elements of the designated array row depending on the results 


of the directory search. 


If the specified file is present and the requester is a legitimate 
user of the file, the MCP will set the designated array row as 


follows: 


WORD CONTENTS 


O 7 if primary user 
3 if secondary user 


2 if tertiary user 


£ Multiefile identification 
2 File identification 

3 Record length 

4 Block length 

5 End-of-File pointer 

6 Open counter 
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If the specified file is not present in the disk directory, the 
MCP will set words 0, 3, 4; 5; and 6 of the designated array row 


all to negative one (-1). 


If the specified file is present but the requester is not a legiti- 
mate user of the file. the MCP will set words 0, 3, 4, 5; and 6 


of the designated array row to zero (0). 


The designated array row must be at least seven (7) words in length. 
If the array row is less than seven words, the Object Program will 


be terminated with an invalid index. 
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SECTION 7 


CONDITIONAL STATEMENTS 


GENERAL. 


SYNTAX. 
The syntax for (conditional statement) is as follows: 


1 (conditional statement) ::= (if statement) | 
{if statement) ELSE (statement) | 
<label) : (conditional statement) 


2 (if statement) ::= (if clause) (statement) 


Examples: 


Conditional Statements: 
IF A > B THEN FOR I+ 1 STEP 1 UNTIL 5 DO R[I]< 
P[I + 2] 


IF A > B THEN A+ A+ti1 


IF GATE [1,2] AND GATE [1,3] THEN GO TO CHI ELSE 
IF GATE [1,4] AND GATE [1,5] THEN GO TO BOS ELSE 
GO TO ERROR1 


IF Statements: 


IF A> B THEN A<| A +1 
IF GATE [1,2] AND GATE [1,3] THEN GO TO L1 


IF Clauses: 


IF A > B THEN 
IF GATE[1,2] AND GATE[1,3] THEN 


SEMANTICS. 
Conditional statements provide a means whereby the execution of a 
statement, or a series of statements, is dependent upon the logical 


value produced by a Boolean expression. 


IF STATEMENT. 

One of the permissible forms of a conditional statement is the IF 
statement. The IF statement operates as follows. The statement 
following the sequential operator THEN is executed if the logical 
value of the preceding Boolean expression is TRUE; otherwise, that 


statement is ignored. 


NOTE 
In the examples which follow, BE 
represents any Boolean expression, 


and S represents any statement. 


Pd 


IF BE THEN 5S; 


false 


IF... BLSE STATEMENT. 

A second form of the conditional statement contains the sequential 
operator ELSE. The operation of this conditional statement pro- 
ceeds as follows. If the logical value produced by the Boolean 
expression is TRUE, the statement following the sequential opera- 
tor THEN is executed and the statement following the sequential 
operator ELSE is ignored. If the logical value of the Boolean ex- 
pression is FALSE, the statement following the sequential operator 
ELSE is executed and the statement following the sequential opera- 


tor THEN is ignored. 


ieee 


IF BE THEN S ELSE 5; 


ene: | aes. 


NESTED IF STATEMENTS. 
The statements following the delimiters THEN and ELSE, or both, 
may be conditional statements, or a series of nested conditional 


statements. 
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The Boolean expressions in the IF clauses of these statements are 
evaluated left to right in a manner similar to the evaluation of 
the conditional arithmetic expression. (See pages 4-1 through 


4-8.) 


When using nested conditional statements, the programmer must 
remain aware of the necessity of maintaining correspondence be- 


tween the delimiters THEN and ELSE. 


For explanatory purposes, let us assume that a given statement 
has equally matched THEN-ELSE pairs. In such a case, the inner- 
most THEN and the immediately following (i.e., the innermost) 
ELSE will be treated as one pair, and from this center the pairs 


proceed outwards. This case is illustrated by: 


Conditional S: 


THEN (1) ELSE (4) 
ee aes 
THEN (3) ELSE(2) 
THEN (4) ELSE(1) 
S3 


If THEN appears more often than ELSE in the statement, the pairs 
of delimiters are matched as described in the example above, and 
the first, and any following THEN not having a corresponding ELSE, 
will cause the program to transfer to the next statement if the 
Boolean expression yields a value of FALSE. This case is illus- 


trated by: 
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Conditional S: 


THEN (1) 
THEN (2) 
THEN (3) ELSE(2) 


THEN (44) ELSE(1) 


In the case illustrated by: 


Conditional S$: Se er eee 


THEN (1) ELSE(3) 


THEN (2) 
THEN (3) ELSE(2) 


THEN (4) ELSE(1) 


e)) 


the ALGOL Compiler would not produce the required result because 
ELSE(3) would be matched with THEN(2), and, if the Boolean expres- 
sion preceding THEN (1) yielded a value of FALSE, the program would 


skip ELSE(3) and continue in sequence. 


Since, however, a statement within a statement could itself be a 
compound statement or a block, the correspondence of the delimi- 
ters could be established clearly by defining the nested condi- 
tional statements as compound statements, the bracket words BEGIN 


and END indicating the different levels of nomenclature. 


ENTERING A CONDITIONAL STATEMENT. 

A GO TO statement may lead to a labeled statement within a condi- 
tional statement. The successor is then determined in the same 
way as if entrance had been made at the beginning of the condi- 


tional statement. 
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SECTION 8 


ITERATIVE STATEMENTS 


GENERAL. 
SYNTAX. 


The syntax for (iterative statement) is as follows: 


3 (iterative statement) ::= (for statement) | (do statement) | 


{while statement) 


SEMANTICS. 
Iterative statements provide methods of forming loops ina pro- 
gram. They allow for the repetitive execution of a statement 


zero or more times. 


FOR STATEMENTS. 
SYNTAX. 
The syntax for (for statement) is as follows: 


1 (for statement) ::= (for clause) (statement) | (label) : 
{for statement) 

1 (for clause) ::= FOR (variable) « (for-list) DO 

1 (for-list) ::= (for-list element) | (for-list), 


(for-list element) 

3 <for-list element) ::= (arithmetic expression) | 
(arithmetic expression) 
STEP (arithmetic expression) 
UNTIL (arithmetic expression) | 
(arithmetic expression) WHILE 
{Boolean expression) | 
(arithmetic expression) STEP 
(arithmetic expression) WHILE 


{Boolean expression) 


Examples: 


FOR Statements: 


FOR I« A + 2 DO BETA «+ I + BETA 


FOR K+ A + 2, 1 STEP 1 UNTIL N DO P[K] < R[K] 


FOR Clauses: 


FOR I «+ A + 2 DO 
FOR K« A + 2, 1 STEP 1 UNTIL N DO 


FOR-Lists: 


A+ 2 
A + 2, 1 STEP 1 UNTIL N, A + 2 WHILE A > B, 1 STEP 1 
WHILE A > B 


FOR-List Elements: 


A +2 

1 STEP 1 UNTIL N 

A + 2 WHILE A> B 

1 STEP 1 WHILE A > B 


SEMANTICS. 
The FOR statement can be best understood by isolating three dis- 


tinct operational steps: 


a. Value assignment to the controlled variable. 
b. Test of limiting condition. 
c. Execution of the statement following DO. 


Each type of for-list describes a different process and will 
therefore be discussed separately. All, however, have one proper- 
ty in common, i.e., the initial value assigned to the variable of 
the FOR clause (called the controlled variable) is that of the 


left-most arithmetic expression in the for-list elements. 


THE FOR-LIST. The for-list may contain more than one for-list 
element. However, for explanatory purposes, it will be assumed 
that there is only one. In order to expand the meaning of a 
single for-list element in a for-list to that of multiple for-list 


elements, one need only consider the following. The process 


described by more than one for-list element in a for-list is ex- 


actly like that which would be described by writing a series of 


FOR statements, 


controlled variables, 


each with one of the for-list elements, 


identical 


and the same statement following each DO. 


The for-list element determines what values are to be assigned 


to the controlled 


variable and what 
to decide whether 


When a 


ct 


for-lis 


the next element in the for-list is 


left to right. 


utilized, 


continued in sequence. 


ARITHMETIC EXPRESSION ELEMENT. 


an arithmetic expression element is: 


The 


FOR V+ AE DOS, 3 5 
do 


A for-list element may be simply an arithmetic expression, 


test to make of the controlled 
or not to execute the state- 
element has been exhausted, 


considered, progressing from 


When all the elements in a for-list have been 


the for-list is considered exhausted and control is 


format for a for-list using 


in 


which case only one value is assigned to the controlled variable, 


Le 


assignment of the initial value to the controlled variable, 


Since there is no limiting condition, no test is made. 


statement following DO is executed. 


hausted. 


V« AE; 


do’ 
Ss 


STEP-UNTIL ELEMENT. 


UNTIL element is: 


A concise description is: 


FOR V «+ AE1 STEP AE2 UNTIL AE3 


The format for 


After 
the 


The element is then exr 


a for-list using a STEP- 


This element calls for a new value to be assigned to the con- 


trolled variable V each time the statement following DO is 
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executed. First, an initial value, that of AEl, is assigned to 
the controlled variable. All subsequent assignments are equiva- 
lent to: V+ V + AE2, and are made immediately after the DO 
statement is executed. The limiting condition on the value of V 
is given by AE3, which is evaluated anew each time through the 


loop. 


A test is made immediately after each assignment of a value to V 
to determine whether or not the value of V has passed AE3. Whe- 
ther AE3 is an upper or lower limit depends upon the sign of AE2; 
AE3 is an upper limit if AE2 is positive, and is a lower limit if 
AE2 is negative. If V has not passed AE3, the statement follow- 
ing DO is executed. If V has passed AE3, the element has been 

' exhausted and the statement following DO is not executed. A con- 


cise description is: 
V<« AE; 


L2: IF AE2 = O OR (SIGN(AE2) = +1 AND V < AE3) OR (SIGN(AE2) = 


-l1 AND V > AE3) THEN BEGIN Sa03 Veo V + AE2; GO TO L2 END; 


5 
It can readily be seen that if the value of AE2 is zero, the 


program will be caught in a closed loop. 


WHILE ELEMENT. The format for a for-list using a WHILE element 


is: 


FOR V « AE WHILE BE DO §S S) 


do? 


This element causes the value of AE to be assigned to the con- 


trolled variable V as long as the logical value of the Boolean 


expression BE is TRUE. The detailed operation proceeds as 
follows. 
First, the value of AE is assigned to the controlled variable. A 


test is made on the logical value produced by BE; if the value is 


TRUE, the statement following DO is executed. This process is 


continued until the value of BE is FALSE, at which time the list 
element has been exhausted and control is transferred to the 


next statement in the program. A concise description is: 


L2: V<« AE; 


IF BE THEN BEGIN S403 GO TO L2 END; 
) 


STEP-WHILE ELEMENT. The format for a for-list using a STEP-WHILE 


element is: 


FOR V<« AE1 STEP AE2 WHILE BE DO S40? 
) 


This element calls for a new value to be assigned to the con- 
trolled variable V if the value of BE is TRUE each time the state- 
ment following DO is executed. First, an initial value, AEl1, is 
assigned to the controlled variable. All subsequent assignments 
are V <«- V + AE2, made immediately after the DO statement is exe- 
cuted. The limiting condition in this case is the logical value 
produced by BE. A test is made after each assignment to V to 
determine if the logical value produced by BE is TRUE. If the 
value of BE is TRUE, the statement following DO is executed; 


otherwise, control is transferred to the next succeeding state- 


ment. This can be stated concisely as: 
V<« AE; 
L3: IF BE THEN BEGIN Sao} V V + AE2; GO TO L3 END; 
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VALUE OF CONTROLLED VARIABLE ON EXIT FROM FOR STATEMENT. 
Upon exit from the FOR statement, the value of the controiied 


variable is indeterminate. 


RESTRICTION. 
A transfer to a labeled statement within the scope of a FOR state- 
ment, through the use of a GO TO statement outside the FOR state- 


ment, is not allowed. 
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DO STATEMENTS. 
SYNTAX. 
The syntax for (do statement) is as follows: 


3 (do statement) ::= DO (statement) UNTIL (Boolean expression) 


Example: 


DO SPACE (FILEID, -3) UNTIL A> C 


SEMANTICS. 

The DO statement provides a method of controlling an iterative 
process in which exit from the loop depends on reaching a limit. 
The statement is first executed; the test is then made, and the 
execution of the statement is repeated as long as the Boolean 


expression is FALSE. A concise description is: 
IF NOT BE THEN GO TO LD 


WHILE STATEMENTS. 
SYNTAX. 


The syntax for (while statement) is as follows: 


3 (while statement) ::= WHILE (Boolean expression) 
DO (statement) 


Example: 
WHILE C = A DO SPACE({(FILEID, A + B - C) 


SEMANTICS. 

The WHILE statement provides a method of controlling an iterative 
process in which exit from the loop depends on exceeding a limit. 
The Boolean expression is first tested; the following statement 
is then executed as long as the value of the Boolean expression 
is TRUE. <A concise description is: 


LW: IF BE THEN BEGIN §S : ; GO TO LW END 
while 
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SECTION 9 


DECLARATIONS 


GENERAL. 
PROCEDURE declarations are covered in Section 10, while Section 


11 covers STREAM PROCEDURE declarations. 


SYNTAX. 


The syntax for (declaration) is as follows: 


3 (declaration) ::= (type declaration) | (array declaration) | 
(switch declaration) | 
(define declaration) | 
{label declaration) | (file declaration) | 
(switch file declaration) | 
(format declaration) | 
(switch format declaration) | 
(list declaration) | 
(switch list declaration) | 
(forward reference declaration) | 
{monitor declaration) | (dump declaration) 
(procedure declaration) | 
(stream procedure declaration) | 


(fault declaration) 


SEMANTICS. 

The purpose of a declaration is to define the characteristics of 
a quantity and assign an identifier to the quantity so that it 
may be referenced. The scope of a declaration is the block in 
which it appears. This means that, at the time of entry into a 
block (through the BEGIN, since the labels inside are local and 
therefore inaccessible from outside), all identifiers declared 
in the block head assume the significance implied by their decla- 
rations. Conversely, at the time of exit from a block (through 
an END or a GO TO statement), all identifiers declared in the 


associated block head lose their applicable significance. 


A conflict of significance can arise when blocks are nested, that 
is, when one block is a statement in the compound tail of another 
block. This situation occurs when the same identifier is declared 
in the respective block heads of two or more nested blocks. The 
conflict is resolved as follows. Assume that block B is nested 

in block A, and that the identifier CC is declared in both block 
heads. 


In block B, the identifier CC has the significance implied by its 
declaration in block head B. The quantity declared in block head 
A and identified by the common identifier CC is inaccessible in 
block B. This is the only case where an identifier loses its 
Significance prior to exit of the program from the block in which 
the identifier is declared. When the program exits from block B, 
the identifier CC again assumes the significance given by the de- 


claration in block head A. 


Apart from the identifiers associated with the standard functions 
(pages 3-8 and 3-9, Standard Functions; page 3-9, Time Functions; 
pages 3-10 and 3-11, Type Transfer Functions; and page 3-11, Inter- 


rogate Function), all identifiers of a program must be declared. 


RESTRICTION. 
An identifier must not be declared to represent more than one 


entity in a single block head. 


TYPE DECLARATIONS. 
SYNTAX. 
The syntax for (type declaration) is as follows: 


(type declaration) ::= (local or own type) (type list) 
(local or own type) ::= (type) | OWN (type) 
(type) ::= REAL | INTEGER | BOOLEAN | ALPHA 


(type list) :3= (simple variable) | «type list), 


[eho [RB [Fk 


(simple variable) 


Examples: 


INTEGER A,B,C 
ALPHA NAME, CODE, AREA 
OWN REAL Q,R,T 


SEMANTICS. 
A type declaration declares one or more identifiers to represent 
certain simple variables, and defines the types of values that 


may be represented by these variables. 


LOCAL OR OWN. The local or OWN portion of the type declaration 
indicates whether the value associated with a simple variable is 
to be retained upon exit from the block in which it is declared. 
A variable which has been declared as OWN retains its value upon 
exit from the block and, at the time of reentry into that block, 
is defined as to its value. The values of variables not declared 
OWN are undefined upon reentry into the block, and these vari- 


ables must be initialized again. 


TYPE. Four declarators are defined for type declarations; their 


meanings are shown below. 
a. REAL (positive and negative values, including zero). 


b. INTEGER (positive and negative integral values, 


including zero). 
c. BOOLEAN (logical value of TRUE and FALSE). 


d. ALPHA (any set of six (or fewer) characters, not 


including the illegitimate character ?). 


ARRAY DECLARATIONS. 
SYNTAX. 


The syntax for (array declaration) is as follows: 


3 (array declaration) ::= (array kind) ARRAY (array list) | 
SAVE (array kind) ARRAY (array list) 


3 (array kind) ::= (empty) | local or own type) 


baa, 


1 (local or own type) ::= (type) | OWN <type) 
1 (array list) ::= (array segment) | (array last); 
(array segment) 
1 (array segment) ::= (array identifier) [bound pair list) ] | 
(array identifier), (array segment) 
1 (bound pair list) ::= (bound pair) | <bound pair list), 
<bound pair) 
1 (bound pair) ::= (lower bound) : (upper bound) 
1 (lower bound) ::= (arithmetic expression) 
1 (upper bound) ::= (arithmetic expression) 
Examples: 
ARRAY Declarations: 
INTEGER ARRAY MATRIX [1:IF B2 THEN B + K ELSE B + I] 
OWN REAL ARRAY GROUP [0:9] 
SAVE OWN BOOLEAN ARRAY GATE [1:10, 3:9] 
ARRAY Lists: 
MATRIX [0:9] 
MATRIX, GROUP [0:9, 3:9] 
ARRAY Segments: 
MATRIX [0:9] 
MATRIX, GROUP [0:9] 
Bound Pair Lists: 
9:9 
O:9, 3:9 
A + 2:B + 4 
IF Bl THEN A + K ELSE A + I:IF B2 THEN B + K ELSE B + TI 
SEMANTICS. 


An ARRAY declaration declares one or more identifiers to represent 
arrays of subscripted variables, and gives the dimensions of the 
arrays, the bounds of the subscripts, and the types of the 


variables. 
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SAVE ARRAYS. The declarator SAVE causes absolute storage alloca- 
tion for an array to remain fixed. This is necessary only when an 
array is being used in conjunction with a stream procedure (see 
Section 11, STREAM PROCEDURE Declarations) in order to maintain 
the validity of the stream address indexes upon exit from and 


reentrance to the stream procedure, 


LOCAL OR OWN. An array ii 


© 


y be declared as OWN with the same 
effect as that given for simple variables (see page 9-2, Type 


Declarations). 


In the case of dynamic OWN arrays, i.e., those arrays whose 
elements behave as OWN declared variables and whose subscript 
bounds may change with each entrance to the biock in which the 


array is declared, the array is remapped in memory automatically. 


However, this remapping may cause the loss of some elements of the 
original array. Only those elements whose subscripts are the same 
as the subscripts of the new array are copied over to this new 


array. The rest of the elements of the old array are lost. 


TYPE. Each array must be declared as to type, unless it is of 
type REAL. An array which is not declared as to type will be 
considered type REAL (see Restrictions below). 


RESTRICTIONS. Arrays which are declared together must be of the 
same type. If the array is OWN, REAL must also be explicitly 


declared. 


BOUND PAIR LIST. The bound pair list defines the dimensions of 
the array and the number of elements in each Simewe ions Bound 
pairs are formed by expressions (see page 3-3, Evaluation of 
Subscripts). The expressions are evaluated once, from left to 


right, upon entrance into the block. 


Expressions used in forming bound pairs can depend only on vari- 
ables and procedures which are nonlocal to the block for which 


the ARRAY declaration is valid. 


If an array is declared OWN, the values of the corresponding sub- 
scripted variables are defined only for those variables which 


have subscripts within the most recently calculated bounds. 


RESTRICTIONS. 
Arrays declared in the outermost block must use constant bounds. 
Upper bounds must not be smaller than the corresponding lower 


bounds. No dimension may contain more than 1023 elements. 


SWITCH DECLARATIONS. 
SYNTAX. 


The syntax for (switch declaration) is as follows: 


1 (switch declaration) ::= SWITCH (switch identifier) < 
(switch list) 
1 (switch list) ::= (designational expression) | 
{switch list), (designational ‘expression) 

Examples: 

SWITCH CHOOSEPATH « L1, L2, L3, L4, SwWl Bie LAB 

SWITCH SELECT - START, ERRORI, CHOOSEPATH [I + 2] 
SEMANTICS. 
A SWITCH declaration defines a set of values corresponding toa 
switch identifier. These values are the designational expressions 
in the switch list. With each of these designational expressions 
there is associated a positive integer, i, 2, ..., obtained by 


counting the items in the list from left to right. This integer 
indicates the position of the designational expression in the 
switch list. The value of the switch designator corresponding to 
a given value of the subscript expression (see pages 4-14 

through 4-16, Designational Expressions) determines which desig- 
national expression is selected from the switch list. The desig- 
national expression thus selected supplies a label in the program 


to which control is transferred. 


EVALUATION OF EXPRESSIONS IN THE SWITCH LIST. An expression in 


the switch list is evaluated each time it is selected using the 
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current values of the variables from which it is composed. 


INFLUENCE OF SCOPE. 

If a quantity appears in a designational expression of a switch 
list and a switch designator selects the above-mentioned designa- 
tional expression outside the scope of this quantity, the quanti- 
ty which would otherwise be inaccessible to the switch designa- 
tor will be used in the evaluation of the selected designational 


expression. 


Examples: 


BEGIN 
BOOLEAN B; 
LABEL L1, L2, L3, L4, L5; 
SWITCH SW<+ Li, L2, L3, IF B THEN L4 ELSE L5; 
S3 


BEGIN 
INTEGER B; 
Ss | 
GO TO sw [4]; 


END; 
S3 


END 


DEFINE DECLARATIONS. 
SYNTAX. 


The syntax for (define declaration) is as follows: 


3 (define declaration) ::= DEFINE (definition list) 

3 (definition list) ::= (definition part) | (definition list) , 

(definition part) 

3 (definition part) ::= (definition designator) = (definition) # 

3 (definition designator) ::= (defined identifier) | (formal 
parametric define designator) 


3 (defined identifier) ::= (identifier) 


ad 


3 (formal parametric define designator) ::= 
(parametric define identifier) (({formal define-~parameter list)) 
| (parametric define identifier) [ (formal define-parameter list) |] 
3 (parametric define identifier) ::= (identifier) 
3 (formal define-parameter list) ::= (formal define parameter) | 
(formal define-parameter list) , 
(formal define parameter) 
3 (formal define parameter) 23 (parametric define identifier) 
(parameter digit) 
3 (parameter digit) ::= (digit) 
3 (definition) ::= (well-formed construct) 
3 (well-formed construct) ::= (basic component set) | (well-formed 
construct) (basic component set) 
3 (basic component set) ::= (delimiter) | (identifier) | (unsigned 
number) | (string) | (logical value) 


Examples: 


DEFINE RK=RUNGEKUTTA#, ROOT=(-B+SQRT(B*2-4xAxC) )/(2xA)# 
DEFINE INT=INTEGRATE (X, Y, Z)# 

DEFINE LP=(#, RP=)#, RTDIG=[42:6]# 

DEFINE FORI=FOR I-1 STEP 1 UNTIL# 

DEFINE TAN(TAN1)=(SIN(TANL) /COS(TANL) )# 


DEFINE MAXX[MAXX1, MAXxX2]=(IF MAXX1>MAXX2 THEN MAXX1 
ELSE MAxx2)# 


DEFINE Af A1]=[3:5]#, A2[A21]=B2 [X,A21]# 
DEFINE ABC[ ABC1,ABC2|=W ABC1 x Y.ABC2# 
SEMANTICS. 


The DEFINE declaration provides a method whereby an identifier can 


be defined to represent a well-formed ALGOL construct. 


When a parametric definition is used, the (parametric define iden- 
tifier)s used to form the (formal define parameters) must be 


ai to the (parametric define identifier) preceding the 


enclosed (formal define-parameter list). The first parameter 
digit must be a l. Any parameter digit following the first must 
be one greater than the preceding parameter digit. Since only one 
digit is associated with each parameter, a maximum of nine para- 


meters can be used in one parametric definition. 


A definition is used by including a (define designator) in the 
program with the same defined identifier or parametric define iden- 
tifier as the definition designator. The syntax for (define desig- 


nator) is: 


3 (define designator ) ::= (defined identifier) | (actuai 
parametric define designator) 
as (actual parametric define designator) $3= (parametric define 


identifier) ({actual define parameter list)) | 
(parametric define identifier) [ actual define para- 
meter list) | 


3 {actual define parameter list) ::= (actual define parameter) | 


(actual define parameter list) ‘ {actual define 
parameter) 
3 {actual define parameter) ::= (define constituent) | {actual 


define parameter) (define 
constituent) 
3 (define constituent) ::= (elementary define element) | 
(actual define parameter list)) | 
[ actual define parameter list) ] 


3 (elementary define element) ::= (identifier) | (unsigned number) | 
{logical value) | (string) | 
{(delimiter) except comma, semi- 
colon, left and right bracket, 
left and right parentheses.} 


Examples: 


TAN[ MAXX(A*B, C)] 
ABC(x(A+B),[ 33:15] ) 


At 4] 
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The actual parameters in a define designator have a one-to-one 

correspondence, according to position in the list, to the formal 
parameters in the definition designator with the same identifier. 
Therefore, the number of actual parameters must equal the number 


of formal parameters. 


The appearance of a defined identifier in a program is equivalent 


to the appearance of its definition. 


When a parametric definition is used, the appearance of a formal 
parameter in the definition is equivalent to the appearance of 

the corresponding actual parameter. Thus, the appearance of an 
(actual parametric define designator) in a program is equivalent 

to the appearance of its definition with all formal parameters 
replaced by actual parameters. For example, if there were a decla- 


ration such as 


DEFINE CF=[33:15]#, AfA1, A2]=B[A1,1]-A2# 
then the statement 


A(Z, [18:15] )-A(I-1, CF)+1 


would be equivalent to 


B[ I,1]+[18:15]<-BL 1-1,1]-[33:15]+1 


The reserved word COMMENT within a definition will be recognized 
and everything following it, up to the next semicolon, will be 


treated as a COMMENT. 


At declaration time, a definition is of no consequence; it has 
meaning only in relation to the context in which the related define 
designator appears. For this reason, undeclared identifiers may 
appear in definitions; all identifiers must have been declared, 


however, when the define designator is used. 


During compilation, any syntax errors resulting from the use of a 
definition are noted following the appearance of the define desig- 


nator. 
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NESTING OF DEFINITIONS. Definitions can be nested; that is, define 
designators may be used in definitions. For instance, in the ex- 
ample below, the definition for D3 is equivalent to the definition 
for DD. The definition +A+A is considered nested one level in the 


first declaration, two levels in the second, etc. 


Example: 


DEFINE D1l=+A+A# 
DEFINE D2(D21)=B(D21)D14 
DEFINE D3(D31)=D2(D31)D1# 


DEFINE DD(DD1)=B(DD1)+A+A+A+A# 


RESTRICTIONS. 


A definition cannot be nested more than eight levels. 


Define designators may not be used in a FORMAT or SWITCH FORMAT 
declaration. If a definition ends with the word END, its define 
designator inay be followed in the program only by a semicolon or 
the words ELSE, END or UNTIL. The maximum number of characters 
(excluding COMMENTs and superfluous pisnice) that may appear ina 
single definition may range from 1971 to 2035, depending upon the 
number of characters in the defined identifier or parametric define 


identifier, as follows: 


IDENTIFIER IDENTIFIER 
SIZE MAXIMUM SIZE MAXIMUM 
1-5 2035 38-45 1995 
6-13 2027 46-53 1987 
14-21 2019 54-61 1979 
22-29 2011 62-63 1971 
30-37 2003 


A (parametric define identifier) may contain at most 62 characters. 


1 Blanks are superfluous except in strings or when used as 
delimiters. 


LABEL DECLARATIONS. 
SYNTAX. 
The syntax for (label declaration) is as follows: 


3 (label declaration) ::= LABEL (label list) 
3 (label list) ::= (label) | (label list),(label) 
2 (label) ::= (identifier) 


Examples: 


LABEL START 
LABEL ENTER, EXIT, START, LOOP 


SEMANTICS. 

As is true of all identifiers, a label must be declared before it is 
used. A label must be declared in the head of the innermost block 
in which the associated labeled statement appears. If any state- 
ment in a procedure body is labeled, the declaration of this label 


must appear within the procedure body. 


-RESTRICTION. 
A procedure body itself may not be labeled. 


FILE DECLARATIONS. 
SYNTAX. 
The syntax for (file declaration) is as follows: 


3 (file declaration) ::= (file lock part) (mode part) FILE (in-out 
part) (file identifier) (label equation 
part) ({buffer part) (save factor) ) 

3 (file lock part) ::= Cempty) | SAVE 

3 (mode part) ::= (empty) | ALPHA 

3 (in-out part) ::= IN | OUT | (empty) 

3 (file identifier) ::= (identifier) 

3 label equation part) ::= (output media part) (disk file 

description) (label part) 

3 (output media part) ::= (output media digit) | (empty) | DISK 

(disk access technique) 
3 (label part) :: = (file identification part) | 
(multi-file identification part) 


(file identification part) | Cem 


3 (disk file description) ::= (empty) | [ (number of areas) : 
{size of areas) | 
3 (number of areas) ::= (arithmetic expression) 
3 (size of areas) ::= (arithmetic expression) 
3 (disk access technique) ::= SERIAL | RANDOM | UPDATE | (empty) 
3 (file identification part) ::= "(7 or less string characters}" 
3 (multi-file identification part) ::= "{7 or less string 
characters} " 
3 <buffer part) ::= (number of buffers), (record specifications) 
3 (number of buffers) ::= (unsigned integer) 
3 (record specifications) ::= {unblocked specification) | 
(blocking specifications) 
3 (unblocked specification) ::= (fixed physical record size) 
3 (blocking specifications) ::= (fixed logical record size), 
(fixed physical record size) | 
(fixed physical record size), 
(fixed logical record size) 
3 (fixed logical record size) ::= (arithmetic expression) 
3 (fixed physical record size) ::= (arithmetic expression) 


3 (save factor) ::= , SAVE (arithmetic expression) | (empty) 


Examples: 


FILE IN REED (1, 10) 

FILE OUT RITE (2, 15) 

FILE OUT RITE 1 (2, 15) 

FILE OUT CARDS (2, 10) 

FILE OUT CARDS O (2, 10) 

FILE IN TAPE (2, 300, 40) 

ALPHA FILE OUT TAPEOUT 2 (2, 400, 45) 
SAVE FILE TAPE10 (2, 40) 

FILE PILEID "IDENTI" (2, 350, 25) 


SAVE ALPHA FILE OUT FILEID 2 "MULTIFI" "IDENTIF" (2, 470, 
35, SAVE 25) 


ALPHA FILE OUT F18 (1, 10) 

ALPHA FILE IN DATACOM 14 (2, 29) 

ALPHA FILE OUT REPLY 14 (5, 5) 

FILE IN RIED DISK SERIAL (2, 30) 

FILE IN RANRIED DISK RANDOM (1, 60, 180) 
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FILE RANRW DISK RANDOM [3:6000] (1, 30, 120) 
FILE OUT NEW DISK SERIAL [4:2000] "A123456" (3, 12, 180) 
FILE UPD DISK UPDATE [N:S] "PREFIX" "FILEID" (A, B, C) 


SAVE FILE ID DISK SERIAL [3:3000] "PART" "REC" (3, 30, 120, 
SAVE 30) 


SEMANTICS. 
The FILE declaration associates a file identifier with the speci- 


fications which govern the handling of that file. 


Upon exit from the block in which a file is declared, the file 
is closed and related I/O units are released to the system. 


Tape units, if any, are rewound. 


The file lock part causes the implied execution of a LOCK state- 
ment upon the file when exiting the block in whose head the file 


declaration is made. 


The mode part may be included in the declaration of a file using 
magnetic tape, paper tape and data communications; in all other 
cases, it should be empty. For tape files, ALPHA is u 


s us 
‘ 
arity are to be wr 


specifv that records recorded with even par 


on an output file or read from an input file. Records recorded 
with odd parity on tape files are assumed if the mode part is 


empty. 


If the mode part specifies ALPHA on a data communications file, 
then the I/O channel will perform a BCL-to-internal translation 
on each READ statement and an internal-to-BCL translation on 
each WRITE statement. A data transmission control unit is re- 
quired to ensure that automatic terminal code-to-BCL or BCL-to- 
terminal code translation takes place. The absence of a control 
unit would require programmatic translation; therefore, the mode 


part would be left empty to inhibit automatic I/O translation. 


The in/out part may contain IN or OUT, or may be empty, and has 


effect only if the file is opened by a stream procedure access 
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or a RELEASE statement. Data communications file declarations are 
required for input and output. The same data communications file 


cannot be used both in and out. 


In the case of tape files which are both used for output and in- 


put in the same program, the in/out part must be empty. 


The in/out part designates the type of action to be taken when 
the buffer is released if the buffer had been opened by other 
than a READ, SPACE, or WRITE statement. If no direction is 
stated, it will be interpreted as IN. 


Ail fiie identifiers in a program should be unique. The file 
identifier is used in the program, and in Program Parameter cards, 


it references the declared file. 


The label equation part has the same function as a Label Equation 
card and may be used in lieu of the card. If the label equation 
part and Label Equation card are both used, the card takes pre- 


cedence. 


The output media part specifies the output medium. With the ex- 
ception of the SPO and data communications, the output media is 
ignored on input files and should be left empty. The digits used 
in the output media part are shown in table 6-2. An output media 
part of 11 must be used on both input and output files referencing 
the SPO. An output media part of 14 must be used on both input 


and output files referencing the data communications unit. 


If the output media part is left empty, a 2 is assumed for output 


files. 


The label part serves to designate the identifier in the label of 
a particular file which differs from the declared file identifier. 
It also indicates use of a multi-file reel. Data communications 
files do not have labels, but if they are used, they have no 


effect on program execution. 


The buffer part specifies the number of buffer areas desired and 
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the size (number of words) needed for each buffer area. When the 
file is referencing the SPO, the input message is assumed to be 

80 characters in length. Consequently, all SPO file buffer sizes 
must always be at least 10 words long. The buffer size of an 
input data communications file must be large enough to accommodate 
the largest hardware terminal buffer plus one word for the status 
word. The hardware terminal buffers can only be multiples of 


28 characters, with a maximum of 448 characters. 


The information in one punched card requires a buffer of 10 
words. A buffer of 15 or 17 words is required for one line of 


print on the 120 or 132 position line printers respectively. 


If more than one buffer is specified and storage is inadequate to 
accommodate the number designated, the program cannot be executed. 
For data communications input Piles: only one buffer will be used, 
regardless of the value of (number of buffers) unless a Data 


Communications Read Seek statement is performed on the file. 


Blocked records may be read or written when using magnetic tape 
or disk files. This is specified by the (record specifications) 
of the file declaration. The (fixed logicai record size) speci- 
fies the number of words for each record, while the (fixed phy- 
sical record size) specifies the number of words in the entire 
block. The block size depends on the type of blocking used and 


should be determined as described in the following paragraph. 


When using magnetic tape files, two types of biocking may be 


used: 


a. If the (record specifications) is of the form (fixed 
logical record size), (fixed physical record size), 
then the block size will be a multiple of the record 
size. For example, a file declaration such as FILE 
OUT TAPE1 (2, 55, 550) would create a tape where there 
are 55 words to each record and 10 records per block, 


for a total block size of 550 words. 


b. If the (record specifications) is of the form (fixed 
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physical record size), (fixed logical record size), 
then the block size must be large enough to include 
link words. For example, to create a tape with the 
same blocking factor as the above example, the file 
declaration would be FILE OUT TAPE1 (2, 561, 55). 

The (fixed physical record size) must be a multiple 
of the logical record size plus the number of logical 


records plus one or 10 x 55 + 10 + . The 


f= 

li 
ct UN 

CN 


When the file declaration references a disk file, the blocking 
can only be of the form (fixed logical record size), (fixed 
physical record size). Each physical record will start at the 
beginning of a disk segment and may contain a maximum of 63 


segments. 


The SAVE factor is applicable to labeled magnetic tape output 
files and disk files that are entered into the disk directory. 
When a SAVE factor is used on tape files, the value of the arith- 
metic expression is added to the current date and included in the 
tape label as the purge date. When a SAVE factor is used ona 
disk file, the value of the arithmetic expression is added to 

the current date every day that the file is accessed, creating 

a dynamic purge date. A SAVE factor may be specified on a data 


communications file but has no effect. 


The disk access technique used with disk files specifies the 
buffering action to be used with the file. Which technique to 
use is dependent on the primary purpose for accessing the file. 


The six basic purposes for accessing a file on disk are to: 


a. Serially read records. 
b. Serially write records. 
c. Randomly read records. 
d. Randomly write records. 
e. Serially update records. 


f. Randomly update records. 


9-17 


The file should be declared SERIAL if the primary purpose is 
either a or b above. The file should be declared RANDOM if the 
primary purpose is either c, d, or £ above. If e is the primary 


purpose, the file should be declared UPDATE. 


When a disk file is declared SERIAL, the following actions take 


place: 


a. As READ statements are performed, reading is buffered. 
The buffers are filled with records of consecutively 


higher addresses than the record last accessed. 


b. If the file is declared unblocked and a WRITE statement 
is performed, there is never a need for an implicit 


READ before writing, and writing is buffered. 


ec. If the file is declared blocked, if necessary, an im- 
plicit READ will be made before a WRITE statement is 
performed. This action is required since the entire 
physical record which contains the logical record must 


be written. 


When a disk file is declared RANDOM, the following action takes 


place: 


a. READ operations are buffered only through the use of 
a READ SEEK statement. 


b. If the file is declared unblocked and a WRITE statement 
is performed, an implicit READ is not required and 


writing is buffered. 


c. If the file is declared blocked and a WRITE is per- 
formed, the action taken is the same as for a serial 


disk file. 


READ and WRITE statements which reference a random file must 


contain a record address. 


When a disk file is declared UPDATE, buffer handling is designed 
to provide optimum handling of I/O statements that cause a record 
to be read but not released, and then updated and written. Each 
time a WRITE is performed, the buffer used for the output record 
is written and immediately refiiled with the next record to be 
buffered in from disk. The buffers of the file are filled with 
records of consecutively higher addresses than the last record 


read and/or written. 


The disk file description is used when a file on disk is being 
created. It consists of the (number of areas) and the (size 


of areas), each defined below. 


20. This specifies the maximum number of areas on 


the disk that the file may occupy. 


b. The size of the areas specifies the size of each area 
that the file on disk may occupy. This size is in 
terms of the number of logical records that the 


area is to contain. 


The total area that the file could occupy on disk is the number 
of areas times the size of each area. When more than one area 

is declared, the next area is not allocated until the preceding 
area has been filled with the number of logical records specified 


by the size of the area. 


RESTRICTIONS. 
A program may contain more than one FILE declaration involving 
the same file identifier; however, no such file after the first 


may be accessed with a label equation card. 


A file identifier may designate a file on a multi-file magnetic 
tape. More than one such file may be used in a program; however, 
no more than one file on a given multi-file tape may be open at 


any time. 


cae 


A variable number of words may be contained in one magnetic tape 


block, but the number may not exceed 1023. 
A disk file description should not be used with files declared IN. 


If a file which exists on the disk is specified by a disk file 
declaration, the disk file description must be empty. 


SWITCH FILE DECLARATIONS. 
SYNTAX. 


The syntax for (switch file declaration) is as follows: 


3 (switch file declaration) ::= SWITCH FILE (switch file 
identifier) - (switch file list) 
3 (switch file identifier) ::= (identifier) 
3 (switch file list) ::= (file identifier) | (switch file list), 
(file identifier) 


Examples: 


SWITCH FILE SWHTAPE « TAPE1, TAPE2, TAPE3 
SWITCH FILE SWHUNIT < CARDOUT, TAPEOUT, PRINT 


SEMANTICS. 
The SWITCH FILE declaration associates a switch file identifier 
with a number of files, as designated by the file identifiers 


in the switch file list. 


Associated with each of the file identifiers in the switch file 
list is an integer reference. The references are 0, 1, 2, ..., 
obtained by counting the identifiers from left to right. This 
integer indicates the position of the file identifier in the 

list. The file identifiers are referenced, according to position, 


by switch file designators. 


If the switch file designator yields a value which is outside 
the range of the switch file list, the file so referenced is 
undefined. Each file identifier used in a switch file list must 


have appeared previously in a prevailing FILE declaration and 
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each file is governed according to the FILE declaration in which 


it was declared. 


FORMAT DECLARATIONS. 
SYNTAX. 


The syntax for (format declaration) is as follows: 


3 (format declaration) ::= FORMAT (input or output) (format 


part) 
3 (input or output) ::= IN | ouT | (empty) 
3 (format part) ::= (format identifier) (({editing specifications) ) 
| (format part), (format identifier) 
({editing specifications) ) 
3 (format identifier) ::= (identifier) 


3 (editing specifications) ::= (editing segment) | 
(editing specifications) / | 
/ (editing specifications) | 
(editing specifications) / 
{editing segment) 
3 (editing segment) ::= (editing phrase) | (repeat part) 
(editing specifications)) | 
(editing segment), (editing phrase) | 
{editing segment), (repeat part) 
({editing specifications) ) 
3 (editing phrase) ::= (repeat part) (editing phrase type) 
(field part) | (string) 
(repeat part) ::= (empty) | {unsigned integer) | * 
3 (editing phrase type) ::=A|D|E|F|Ir]Li]o|R{ 
Sa x 
3 (field part) ::= (empty) | (field width) | (field width) . 


(decimal places) 


ho 


3 (field width) ::= (unsigned integer) | * 
3 (decimal places) ::= (unsigned integer) | * 
Examples: 


FORMAT IN EDIT (X4, 216, 5E9.2, 3F5.1, X4) 


FORMAT IN Fl (A6,5(X3,2E10.2, 2F6.1),317),F2(A6,D,A6) 


FORMAT OUT FORM1 (X56, "HEADING",X57),FORM2 (X10,4A6/Xx7, 
5A6/X2,5A6) 


FORMAT OUT F3 (10230)+ 

FORMAT OUT F4(F5.2, X2, R3.1, S-2) 
FORMAT FMT1 (*1I*) 

FORMAT FMT2 (*V*.*) 


SEMANTICS. 

The FORMAT declaration associates a set of editing specifications 
with a format identifier. The following discussion of FORMAT 
declarations is divided into two parts: those used for input 


and those used for output. 


INPUT EDITING SPECIFICATIONS. Input data can be introduced to 
the system by various media such as punched cards or magnetic 
tape. Once the information is in the system, however, it may 

be considered a string of bits, regardless of the input equipment 


used. 


For editing purposes, this string can be processed in one or two 
ways: either as a set of six-bit characters (see Appendix B, In- 
ternal Character Codes), or an eight-character word. The input 
editing specifications, through the editing phrases, designate 
where and in what form the initial values of variables are to be 


found in this string. 


INPUT EDITING PHRASES. The editing phrases, except the D and O 
types, designate six-bit character processing. They describe 
a portion of the input data in which the initial value of one 
variable is to be found. Editing phrases type D and O cause the 


input string to be processed as full eight-character words. 


A phrase such as rAw has the same effect as Aw, Aw..., Aw(r 
times), where r is the repeat part and w the field width. The 
field width may specify from one to 63 characters. If the repeat 


part of an editing phrase is empty, it is given a value of l. 


1. The last character before the right parenthesis is the letter 
O, not zero. 
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Characteristics of the input editing phrase types are summarized 


in table 9-1. 


Table 9-1 


Characteristics of Types of Input Editing Phrases 


Phrase Phrase Being | Field | 
| Type | Example | fnitialized | Contents 


A 6-bit characters TOTALS 

D | D | Full word None | Any operand | 
| E | E9.2 | 6-bit characters | REAL | +0.18@-03 | 

F F7.1 | 6-bit characters | REAL | -3892.5 
I 16 | 6-bit characters | INTEGER | +76329 | 
| L | L5 | 6-bit characters | BOOLEAN | FALSE | 
| O O | Full word | Any | Any operand | 
| R | R11.4 | 6-bit characters | REAL | +2123123@+4 

S ; S-2 6-bit characters REAL None | 

xX | 6-bit characters | Any 7 characters| 


The definition of each input editing phrase type is given below. 


a. <A - initializes a variable to the characters found in 
the field described by the field width. If the 
field width is greater than six, the right-most six 
characters are taken as the value to be assigned to 
the variable. If the field width is less than six, 
zeros are appended to the left of the characters in 


the field to make a total of six characters. 


b. D = causes one full word of eight characters in the 
input data string to be ignored. The field part 
should be empty. 


Cx E - initializes a variable to the number found in the 


field described by the field width. The field 
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width must be at least 7 greater than the number 
of decimal places specified since the input data 


is required to be of the following form: 


*n.dd--<-d@tee 


The sign of the number must appear first. A digit 
and a decimal point must follow the sign. One or 
more digits may follow the decimal point. The 
number of digits following the decimal point must 
equal the number of decimal places indicated by 
the editing phrase. Following the digits must be 
the symbol @, the sign of the exponent, and a two- 


digit exponent. The sign of the number may be 
indicated by +, -, or a single space which is inter- 
preted as positive. The number must be right- 


justified in the designated field. 


d. F - initializes a variable to the number found in the 
field described by the field width. The input data 


must be in one of the following forms: 


T neeons *nn---n.dd-d nn---n.dd---d 
nn---n. deed Jaaexea 
The sign of the number is optional. If there is 


a sign, it must appear first; if there is no sign, 
the number is assumed to be positive. A decimal 
point must be present; zero or more digits may pre- 
cede it. There must be as many digits after the 
decimal point as specified by the editing phrase. 
The number must be right-justified in the designated 


field. 


e. I- initializes a variable to the integer found in the 
field described by the field width. The sign of the 
number is optional; the applicable rules are the same 


as in the case of editing phrase F. 
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The number itself may consist of one or more digits 


which must be right-justified in the designated field. 


f. L- initializes a variable to the logical value found in 
the field described in the field width. There are two 
possible values, TRUE and FALSE; the programmer may 


truncate these input words as shown in table 9-2. 


Editing Phrase 


TRUE 
TRUEb or 


Ln, where n> 5 Skip n-5 then same as L5 


g. O - initializes a variable to the contents of an eight- 
character word taken from the input string. The field 


part is ignored and should be left empty. 


h. R- initializes a variable to the contents of an input 
field which may be written according to the specifica- 
tions of the I, F, or E editing phrase. A decimal 
point as implied in the editing phrase is sufficient; 
its location is considered to be as many digit-positions 
to the left, from the right-most position of the field, 
as indicated by d in the editing phrase. An actual 
decimal point in the input takes precedence over the 
implied decimal point. If there is an actual decimal 


point in the input, the input data may appear anywhere 
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within the field. No explicit sign is required in 
either the characteristic or the mantissa; allowed 
exponents range from -68 to +68. If the input field 

is a field of blanks, a -O (minus zero) is generated. 
The d indicator of the editing phrase is ignored if the 
input consists only of an exponent part. The symbol & 
may be used in place of +, and E in place of @. An 
error condition transfers control to the parity action 
label, if one is present; otherwise, the program will 


be terminated. 


i. S - the integer number in the editing phrase itself is 
used as a power of 10 to multiply all values associated 
with subsequent R editing phrases. More than one §S 
phrase may appear ina format, each taking precedence 


over the one before. 


j-~ V - causes an access to the list during the program execu- 
tion to determine the (editing phrase) type. The vaiue 
obtained from the list should be one of the characters 


A, D, E, F, I, L, 0, R, S, or X. 


k. X - causes the number of characters indicated by the field 


width to be ignored. 


If the input editing phrase is a string, the string in the FORMAT 
declaration is replaced by the corresponding input string. The 
number of characters transferred from the input string is equal to 
the number of characters in the FORMAT declaration which are enclos- 
ed between the string bracket characters. If the editing phrase is 


not D or O, the field part must not be empty. 


If the (repeat part), (field width), or (decimal places) of an 
(editing phrase) is an asterisk (*), the value of the next list 
element during execution of the program will be used to complete 
the definition of the (editing phrase). If the value of the list 
element corresponding to the repeat part is less than or equal to 


O, the editing phrase will be skipped. If the repeat part pre- 
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ceding a left parenthesis is an asterisk, the number of repetitions 
is determined by the value of the corresponding list element as 


follows: 


a. if the value is greater than 0, then repeat the number 


of times of the value. 


oO 
IJ 
Hh 


the value is equal to 0, then repeat indefinitely. 


c. If the value is less than 0, then skip to the corresponding 


right parenthesis. 
Examples of the above and the V editing phrase are shown below. 


FORMAT FMT1 (*I*); 
FORMAT FMT2 (*V*.*); 


READ (INPUT, FMT1, 2, 4, A, B); 


WRITE (LINE, FMT2, 3, "F", 6, 4, xX, Y, Z); 


The READ causes FMT1 to be executed as 214, while the WRITE causes 
FMT2 to be executed as 3F6.4. 


When a READ statement uses a free-field part, no FORMAT declaration 
is required to provide the editing specifications for data. Editing 
specifications, in this case, are determined by the format of the 


data. such data must be formatted as described on page 6-21. 


OUTPUT EDITING SPECIFICATIONS. Output can be performed by the system 
through various media such as magnetic tape and the iine printer. 

The information in the system, ready for output but not yet trans- 
ferred to the output equipment, may be considered a string of bits, 
regardless of the output equipment to be used. For editing purposes, 
this string can be built in one of two ways: either from a set of 
six-bit characters (see Appendix B), or from a set of eight-charac- 


ter full words. The output editing specifications, by means of the 
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editing phrases, designate where and in what forms the values of 


expressions are to be placed in this string. 


OUTPUT EDITING PHRASES. The editing phrases, except D and O types, 
designate six-character processing. They describe a portion of the 
output data string into which output information is to be placed. 


This information may be one of three kinds: 
a. The value of an expression. 


b. The characters of the editing phrase itself 


(when the editing phrase is a string). 
c. The insert characters O (zero) and single space. 


Editing phrase types D and O designate that the output string is 

to be built from full words. The field width may specify a length 
of one to 63 characters. The expression rAw has the same effect as 
Aw, Aw,..., Aw (r times), where r is the repeat part and w is the 
field width. If the repeat part of an editing phrase is empty, it 
is given a value of 1. Characteristics of the output editing 


phrase types are summarized in tab 


e 9-3. 
The definition of each output editing phrase is given below. 


a. A - places the value of one expression (six characters) in 
the field width. If the field width is greater than six, 
the six characters are placed at the right end of the 
field and leading blanks are inserted to fill out the 
field. If the field width is less than six, the right- 
most characters of the expression value are placed in 


the field. 


b. D =- places one full word of all zeros in the output data 


string. 


c. E- places the value of one expression in the field describ- 
ed by the field width. This value has the following 


form when placed in the output data string: 


bn. dd---d@tee 
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Editing 
Phrase 


Table 9-3 


Characteristics of Types of Output Editing Phrases 


Editing 
Phrase 
Example 


6-bit characters 


Full word 


Type of 
Evaluated 
Expression 


ALPHA 


None 


Example 
of Field 
Contents 


RESULT 


One full word 
of zeros 


E P1l1l.4 | 6-bit characters | REAL 1_-1.2500@+02 

F F8.3 6-bit characters REAL 6735.125 

I I6 6-bit characters INTEGER bb1416 

ie | L5 6-bit characters | BOOLEAN bTRUE | 

O 6) Full word Any Any operand 

R R11.4 6-bit characters REAL b2.1231@+09 

S S-2 6-bit characters REAL None in field; 
result: 
ore) xR 
(subsequent ) 


6=bit characters 


8 blanks 


The sign of the number is represented by a single space 


if positive, and a minus sign if negative (P = 


or minus). 


blank 


If the field width is more than seven great- 


er than the number of decimal places specified, leading 
single spaces are used to complete the field. Then the 
sign of the number, the first significant digit, and a 


decimal point are inserted. The value of the expression 


is rounded to the number of decimal places specified by 
the editing phrase. If the number of significant digits 
in the expression value is less than the number of 

decimal places specified, the digits are left-justified 


with trailing zeros. To complete the field, the symbol 


@, the sign of the exponent, and the appropriate two- 


inserted. The sign of the exponent 
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is indicated by either + or -. 


places the value of one expression in the field describ- 
ed by the field width. This value has the following 


form when placed in the output string: 
Bnn---n.dd--d 


The expression value is rounded to the number of desig- 
nated decimal places. If the number is smaller than 
the field specified, it is placed in the field right- 
justified. If the number of digits equals the number 


of places specified and if the number is: 


1) Positive, it will be placed in the field 


without a sign. 


2) Negative, the entire field will be filled 


with asterisks (*). 


han the fieid specified, the 
entire field will be filled with asterisks. The sign 


is treated as in editing phrase E. 


places the value of one expression in the field describ- 
ed by the field width. The expression value is rounded 
to an integer and piaced right-justified in the field, 
preceded by leading single-spaces, if any are required. 
If the number is greater than the maximum allowable 
integer, the entire field will be filled with asterisks. 


The sign is treated as in editing phrase F. 


places the value of one Boolean expression in the field 
designated by the field width. Table 9-4 shows the 


effect of various valiues of field width. 


Table 9-4 


Boolean Values for Various Field Widths in Output Editing Phrase 


Boolean Value 


Field Width 


Ln, where n> 5 Skip n-5 then same as L5 


ae O - places the value of one expression, in full word forn, 


in the output string. 


h. R- places the value of one expression in the field describ- 
ed by the field width. The output will be either an F- 
type or an E-type field, depending upon the magnitude of 


the expression. Assuming that: 
E = exponent number, 
sign = O for +, 1 for -, 
WwW = total field width, 
d = number of decimal places to the 


right of decimal point, and 


L = number of decimal digits to the 


left of decimal point, then: 


1) The output will be in F-format if the absolute 
value of the number is equal to or greater than 


1 but less than the maximum allowable integer, and 


w>t1I+da+il1 + sign 
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or if the absolute value of the number is less 


than 1, and 

w > d+di1 + sign 
and either 

ABS(E) < 4d 
or 

w < d+ 6+ sign 


2) The output will be in E-format if the conditions 


for F-format are not met, and 
w > d+ 6 + sign 


3) If none of the above conditions are fulfilled, the 


field will be filled with asterisks. 


i. S$ - the values associated with the subsequent R format 
phrases will be multiplied by such powers of 10 as 
designated by the integer in the S format phrase it- 
self. More than one S phrase may appear in a format, 


each taking precedence over the one before. 


j- V- causes an access to the list during program execution 
to determine the (editing phrase) type. The value 
obtained from the list should be one of the characters 


A, D, E, F, I, L, 0, R, S, or X. 


k. X - places a number of single spaces, as indicated by the 


field width, in the output string. 


An output editing phrase may itself be a string; this editing 
phrase is defined as placing itself, except for the delimiting 


string bracket characters, in the output string. 
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If the (repeat part), (field width), or (decimal places) of an 
(editing phrase) is an asterisk (*), the value of the next list 
element during execution of the program wili be used to complete 
the definition of the (editing phrase). If the value of the list 
element corresponding to the repeat part is less than or equal to 
0, the editing phrase will be skipped. If the repeat part preced- 
ing a left parenthesis is an asterisk, the number of repetitions is 


determined by the value of the corresponding list element as follows: 


a. If the value is greater than 0, then repeat the 


number of times of the value. 
b. If the value is equal to O, then repeat indefinitely. 


c. If the value is less than O, then skip to the 


corresponding right parenthesis. 


Examples of the above and the V editing phrase are shown below. 


FORMAT FMT vee 
FORMAT FMT2 (*V*.*); 


READ (INPUT, FMT1, 2, 4, A, B); 


WRITE (LINE, FMT2, 3, "F", 6, 4, X, Y, 2); 


The READ causes FMT1 to be executed as 214, while the WRITE causes 
FMT2 to be executed as 3F6.4. 


RESTRICTION. In editing phrases O and D the field part must be 


empty; in all other cases it must not be empty. 


THE MEANING OF THE SYMBOL /. The /(slash) used in editing specifica- 
tions causes output from, and clearing of, the buffer. The buffer 
is cleared by filling it with single spaces. The right-most 
parenthesis of the editing specification performs the function of 


one slash. When the line printer is used, consecutive siashes 


a 


cause vertical spacing of the printer by printing blank lines. [It 
should be taken into account, however, that the first slash will 


cause the actual contents of the buffer to be printed. 


SWITCH FORMAT DECLARATIONS. 
SYNTAX. 


The syntax for (switch format declaration) is as follows: 


3 (switch format declaration) ::= SWITCH FORMAT (switch format 
identifier) < (switch format 
list) 

3 (switch format identifier) ::= (identifier) 

3 switch format list) ::= ((editing specifications)) | 


(switch format list), ((editing 


specifications) ) 


Examples: 


SWITCH FORMAT SF <- (A6, 324, 12, X60), (14,X2,2T4,312), 
(X78,12), (x2); 


SWITCH FORMAT SWHFT - (X78,12),(4A6,12),(10A6,12); 


SEMANTICS. 
The SWITCH FORMAT declaration associates a switch format identifier 


with the editing specifications in the switch format list. 


Associated with each of the editing specification parts is an integer 
reference starting from O, obtained by counting the editing specifi- 
cations from left to right. This integer reference indicates tne 
position of the editing specification part in the list. The edit- 
ing specifications are referenced according to position, by switch 


format designators. 


If a switch format designator yields a vaiue which is outside the 
range of the switch format list, the format so referenced is un- 


defined. 
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LIST DECLARATIONS. 
SYNTAX. 
The syntax for (list declaration) is as follows: 


3 (list declaration) ::= LIST (list part) 


3 (list part) ::= (list identifier) ((list)) | 
(list part), (list identifier) ((list)) 


3 (list identifier) ::= (identifier) 
3 list) ::= (list segment) | (list), (list segment) 
3 list segment) ::= (expression part) | (for clause)(list 
segment) | (for clause)[ (expression list) ] 
3 expression part) ::= (arithmetic expression) | {Boolean 
expression) 
3 (expression list) ::= (list segment) | (expression list), 
{list segment) 
Examples: 
LIST Li (X,Y,A[ J], FOR I < P STEP 1 UNTIL 5 DO B[1I]) 
LIST ANSWERS (P + Q,Z,SQRT (R)), RESULTS (X1,X2,X3,X4/2) 
LIST LIST3 (FOR I < O STEP 1 UNTIL 10 DO FOR J + O STEP 1 
UNTIL 15 DO A [1,J]) 
LIST L4 (B AND C, NOT AB1, IF X = O THEN RI ELSE R2) 
LIST RESULTS (FOR I+ 1 STEP 1 UNTIL N DO [A[I], FOR J< 1 
STEP 1 UNTIL K DO[B[I,J], clJ]]]) 
SEMANTICS. 


A LIST declaration serves to associate a set of expressions (arith- 
metic or Boolean) with a list identifier. A list identifier may be 
used in a READ statement (pages 6-20 through 6-23) for specifying 


the variables to be initialized and the order in which the initial- 
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izing is to be done. Since input may not be made to any construct 
other than a variable, a list identifier used in a READ statement 
must refer to a LIST declaration which includes variables only. 
The variables in a LIST declaration must have been previously de- 


clared as to type. 


The list identifier may be used in a WRITE statement (pages 6-29 
through 6-31) for specifying values to be included in an output 
operation. These values are placed in the output string in the 
order of their appearance in the LIST declaration. Variables ina 
LIST declaration may be either local or nonlocal to the block in 


which the LIST declaration appears. 


SWITCH LIST DECLARATIONS. 
SYNTAX. 


The syntax for (switch list declaration) is as follows: 


3 (switch list declaration) ::= SWITCH LIST (switch list 
identifier) « (switch list list) 


3 switch list identifier) ::= (identifier) 


3 switch list list) ::= (list identifier) | (switch list desig- 
nator) | {list identifier), (switch 
list list) | (switch list designator), 

(switch list list) 


Examples: 


SWITCH LIST LX1 < Ll, L2, L3 
SWITCH LIST LX2 + Li, Lx1 [1], L3 


SEMANTICS. 

A SWITCH LIST declaration associates a switch list identifier with 
a number of list identifiers. Associated with each of the list 
identifiers is an integer reference which is obtained by counting 
the list identifiers from left to right starting with 0. This 
integer indicates the position of the list identifier in the switch 


14 14 ‘ or oe +e 
list. These list identifiers are re 


ferenced by means of switch list 


designators. 


Tf a switch list designator yields a value which is outside the 
range of the switch list, the list so referenced is undefined. 


Each list used in the switch list must have been previously declared. 


FORWARD REFERENCE DECLARATIONS. 


SYNTAX. 
The syntax for (forward reference declaration) is as follows: 


3 (forward reference declaration) ::= (forward procedure declar- 


ation) | (forward switch 


declaration) 


3 (forward procedure declaration) ::= (procedure type) PROCEDURE 
(procedure heading) FORWARD 


3 procedure type) ::= (empty) | (type) 


3 forward switch declaration) ::= SWITCH (switch identifier) 
FORWARD 


Examples: 


SWITCH SELECT FORWARD 


INTEGER PROCEDURE SUM (A,B,C); VALUE A,B,C; INTEGER A,B,C; 
FORWARD 


SEMANTICS. 
Before a procedure or a switch can be called in a program, it must 
have been declared previously. <A contradiction arises in two 


special cases, namely: 


a. When a procedure calls another procedure, which 


in turn references the first procedure. 


b. When a switch references another switch, which in 


turn references the first switch. 


In such cases, the first PROCEDURE declaration must contain at least 
one reference to the second, as yet undeclared at this point; a 


similar situation would occur in the case of switches used in this 
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way. 


To enable the programmer to use such recursive references, the 
FORWARD construct has been introduced. This is, in effect, a 
temporary declaration and does not eliminate the need for the normal 


PROCEDURE and SWITCH declarations which must follow in the program. 


MONITOR DECLARATIONS. 
SYNTAX. 


The syntax for (monitor declaration) is as follows: 
3 (monitor declaration) ::= MONITOR (monitor part) 


3 (monitor part) ::= (file identifier) ({monitor list)) |. 
{monitor part), (file identifier) 
(<monitor list) ) 


3 (monitor list) ::= (monitor list element) | 


{monitor list), (monitor list element) 


3 (monitor list element) ::= (simple variable) (subscripted 
variable) | {array identifier) | 
{switch identifier) (procedure 


identifier) | (label) 


Example: 
MONITOR ANSWER (A,Q[I,J], GROUPL, START,SELECT, INTEGRATE) 


SEMANTICS. 

The diagnostic declaration MONITOR declares certain quantities to 
be placed under surveillance during the execution of the program. 
Each time an identifier included in the monitor list is used in 
one of the ways described below, the identifier and its current 


value are written on the file indicated in the MONITOR declaration. 


MONITOR LIST ELEMENTS. When a simple variable in the monitor list 
is used as a left part in an assignment statement, the following 


information is written on the designated file: 
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{simple variable) = {value of variable} 


When a subscripted variable in the monitor list is encountered 
during the execution of the program as the left-most element ina 
left part list, the following information is written on the designat- 


ed file: 


(array identifier)[ {value of subscript expression} | = 


{value of variable} 


When only an array identifier is given in the monitor list, and a 
subscripted variable of that array is encountered as the left-most 
element ina left part list, the following information is written 


on the designated file: 


(array identifier)[ {value of subscript expression}] = 


{value of variable} 


When a switch designator is encountered with a switch identifier 
which is in the monitor list, the following information is written 


on the designated file: 
(switch identifier) 


When a procedure identifier in the monitor list is used as a func- 
tion designator during the execution of a program, the following 


information is written on the designated file: 
{procedure identifier) = {value of function designator} 


me a label which is in the monitor list is encountered in 


the program, the label is written on the designated fiie. 


RESTRICTIONS. 

Only the first seven characters of any identifier are written. All 
pertinent subscripts, however, are written. Only one subscripted 
variable from an array may be monitored at one time. If a monitor 


;, OY several monitor lists, contain more than one subscripted 
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variable which are elements of the same array, only the last of 


these is monitored. 


DUMP DECLARATIONS. 
SYNTAX. 


The syntax for (dump declaration) is as follows: 
3 dump declaration) ::= DUMP (dump part) 


3 dump part) ::= (file identifier) ((dump list)) 
{label):(dump indicator) | (dump part), 
(file identifier) (({dump list)) (label): 
(dump indicator) 


3 dump list) ::= (dump list element) | (dump list), (dump 
list element) 


3 dump list element) ::= (simple variable) | {subscripted 
variable) | (label) | (array identi- 


3 dump indicator) ::= (unsigned integer) | {simple variable) 


Example: 


DUMP INPUTDATA (A,Q[I,J],GROUP1,START) ENTER:4, 
OUTPUTDATA (A,GROUP1) EXIT:X 


SEMANTICS. 

The DUMP declaration declares certain quantities to be placed under 
surveillance during the execution of the program. Diagnostic 
information requested by means of the DUMP declaration is written 
on the designated file when a label in the dump part has been 


passed the number of times equal to the associated dump indicator. 


Since the dump indicator can be a simple variable, dump information 
can be obtained more than once during each execution of the block 
containing the DUMP declaration. The number of times the controle 
ling statement is executed applies only to one pass through the 


DUMP declaration block. The number is not cumulative from one pass 
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to the next. 


DUMP LIST ELEMENTS. A simple variable in the dump list causes the 


current value of that variable to be supplied in the following form: 
(simple variable) = {value of variable} 


A subscripted variable in the dump list causes the current value 


of that variable to be supplied in the following form: 


(array identifier) [ {value of subscript expression} ] = 


{value of variable} 


An array identifier in the dump list causes the current values of 


all elements in that array to be supplied in the following form: 


(array identifier) = {value of first six elements} 
{value of second six elements} 


{value of last elements} 


The order in which the array elements are written is as follows. 
All subscripts are first set to their declared lower bounds) and 
the corresponding value is printed out. The right-most subscript 
is then counted up, and the corresponding value is printed; this 
procedure continues until the subscript reaches its declared upper 
bound. After this printout, the right-most subscript is again set 
to its declared lower bound, the next left subscript is counted up, 
and the process recycles until all subscripts have reached their 


declared upper bounds. 


RESTRICTION. 
Only the first seven characters of any identifier are written. All 


pertinent subscripts, however, are written. 
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FAULT DECLARATIONS. 
SYNTAX. 


The syntax for (fault declaration) is as follows: 
3 (fault declaration) ::= MONITOR (fault list) 


3 (fault list) ::= (fault type) | (fault list), (fault type) | 
(fault list), (fault equate) 


3 (fault type) ::= EXPOVR|INTOVR|INDEX|FLAG | ZERO 
3 (fault equate) ::= (fault type) « (identifier) 


Example: 
MONITOR INTOVR, ZERO, FLAG « PENNANT 


SEMANTICS. 

The fault declaration allows the programmer to indicate to the 
Compiler that he wishes to specify, via a fault statement, action 

to be taken upon the occurrence of one of the errors included in the 


fault list. 
The fault list may include from one to five fault type identifiers. 


Each fault type identifier is associated with a specific program 


error, as indicated in table 6-1, page 6-39. 


In any block in which a fault type identifier does not appear ina 


fault declaration, it may be declared as any other type of quantity. 


A fault equate construct assigns the identifier on the right of the 
assignment operator to the fault type on the left. The identifier 
may then be used in a fault statement, and the fault name (ZERO, 


FLAG, etc.) may be used as any other identifier. 
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SECTION 10 


PROCEDURE DECLARATIONS 


GENERAL 
SYNTAX. 


The syntax for {procedure declaration) is as follows: 


1 


IR 


[ee ( 


[re 


ee Ue 


jh 


Re) 


ho Re 


In 


(procedure declaration) ::= PROCEDURE (procedure heading) 
{procedure body) | 

<type) PROCEDURE (procedure heading) 
(procedure body) 


{procedure heading) ::= (procedure identifier) (formal 
parameter part); (value par 


(specification part) 
{procedure identifier) ::= (identifier) 


(formal parameter part) ::= (empty) | (<formal parameter list)) 


( 
{formal parameter list) ::= (formal parameter) | (formal 
parameter list) (parameter 


delimiter) (formal parameter) 
(formal parameter) ::= (identifier) 
(value part) ::= VALUE (identifier list); | Cempty) 


(identifier list) ::= (identifier) | (identifier list), 
(identifier) 


(specification part) ::= (empty) | (specification list) 


rs 


(specification jist) ::= (specification) ; | (specificatio 
list) (specification); 
(specification) ::= (specifier) (identifier list) | 


(array specification) 


(specifier) ::= LABEL | (type) | SWITCH | PROCEDURE | (type) 
PROCEDURE | FILE | LIsT | FORMAT | SWITCH FILE | 
SWITCH FORMAT | SWITCH LIST 
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ARRAY (array specifier list) | 
(type) ARRAY (array specifier list) 


3 array specification) :: 


3 (array specifier list) ::= (array specifier) | 
(array specifier list), (array 


specifier) 


3 array specifier) ::= (array identifier list) [ (lower bound 
list) | 


3 array identifier list) ::= (identifier list) 


3 lower bound list) ::= (specified lower bound) | (lower 
bound list), (specified lower bound) 


3 (specified lower bound) ::= (integer) | * 
2 procedure body) ::= (statement) 


Example: 


PROCEDURE ROOT (A, B, C, N, Xl, X2, X3); 
VALUE N; 
INTEGER N; ARRAY A, B, C, X1, X2[1]; ALPHA ARRAY X3[1]; 
BEGIN 
INTEGER I; REAL DISC; LABEL START; 
START: FOR I< 1 STEP 1 UNTIL N DO 
BEGIN DISsc «- B[I] * 2- 4 x A[I] x c[I]; 
IF DISC < O THEN X3[I] « "IMAG" ELSE 
BEGIN X1[I] < (-B[ I] + SarT (DISC))/(2 x a[I]); 
x2[I] < (-B[I] - serT (DIsc))/(2 x A[I]); 
XS/ i | “REAL" 
END 
END 
END ROOT 


SEMANTICS. 
A PROCEDURE declaration declares an identifier to represent a 


procedure, and defines what this procedure shall be. Whenever 
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the identifier followed by the appropriate parameters appears in 
the program, it produces a cali upon the procedure (see pages 


6-10 through 6-16, Procedure Statements). 


Procedures which start with a type declarator cannot be called 


by procedure statements, but must be used as function designators. 


A PROCEDURE declaration is composed of two parts: the procedure 
heading and the procedure body. 


PROCEDURE HEADING. 
The procedure heading contains the identifier for the procedure, 
the list of formai parameters, and information pertaining to the 


formal parameters. 


Whenever the procedure is activated, formal parameters in the 
procedure body will be assigned the values of, or be replaced by, 
actual parameters. The formal parameter part contains a listing 


of all formal parameters used in the procedure body. 


The VALUE part specifies which formal parameters are to be called 
by value. Formal parameters called by value are called in the 
order in which they appear in the formal parameter list. Formal 
parameters not in the VALUE part are called by name. The value 
part of a procedure heading should contain only the identifiers of 
formal parameters which are specified as simple variables. If 


identifiers of arrays are included, they are ignored. 


The specification part indicates certain characteristics of the 
formal parameters, that is, the kinds of identifiers they represent. 


Every formal parameter must appear in the specification part. 


In the case of formai parameters used as array identifiers, in- 
formation about the lower bounds must be given. <A lower bound 
specified by an integer indicates that any corresponding actual 
parameter has a declared lower bound equal to this value. A 


specified lower bound of * indicates that the declared lower bound 
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of the corresponding actual parameter may vary in value from one 


call on the procedure to the next. When a specifier of the form 
ARRAY Ai. BOGS coup KG Yy-i2: As 


is used in a procedure heading, it is assumed that the lower bound 
for each actual parameter will be the same, and its value will be 
determined by the value found for the lower bound of the actual 


array row corresponding to Z. 


PROCEDURE BODY. 

The procedure body is a statement that is to be executed when the 
procedure is called. This statement may be any of those listed 
in the syntax of statements (see Section 6, Statements), and 
therefore may be a procedure statement calling upon itself. Pro- 


cedures may thus be called recursively. 


SCOPE OF IDENTIFIERS OTHER THAN FORMAL PARAMETERS. 

Identifiers in the procedure body which are not formal parameters 
are either iocali or nonlocal to the body, depending on whether 

they are declared within the body or outside the body. Those which 
are nonlocal to the body may be local to the block which contains 


the PROCEDURE declaration in its head. 


Any quantity that is nonlocal to a procedure is inaccessible to 
that procedure if that quantity is local to some other procedure 


and is not declared to be OWN. 


SPECIAL RULES OF TYPED PROCEDURES. 
Certain procedures are called by means of function designators. In 
such cases, the PROCEDURE declaration must start with a type decla- 


rator. 


The procedure body of a typed declaration must contain, and cause 
to be executed, an assignment statement with the procedure identi- 


fier in the left part list. 


RESTRICTIONS. 


A 


A procedure body itseif must not be labeled. A GO TO statement 
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appearing in a typed procedure may not lead outside that procedure. 


Furthermore, in using a procedure statement within a typed proce- 


dure, any procedure called for execution in this manner must not 


contain a GO TO statement leading outside the typed procedure. 
if any statement in a procedure body is labeled, the declaration 
of that label must appear in the appropriate block head within 
the procedure body. 
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SECTION 11 


STREAM PROCEDURE DECLARATIONS 


GENERAL. 
SYNTAX. 


The syntax for (stream procedure declaration) is as follows: 


3 (stream procedure declaration) ::= STREAM PROCEDURE 
(stream procedure heading) 
(stream block) | | 
<type) STREAM PROCEDURE 
(stream procedure heading) 
(stream block) 
3 (stream procedure heading) ::= (procedure identifier) 
(stream formal parameter part); 
(value part) 
3 (stream formal parameter part) ::= ((formal parameter list)) 
3 (stream block) ::= (stream block head);(compound stream tail) 
3 (stream block head) ::= BEGIN (stream declaration) | 
(stream block head);(stream declaration) 
3 (compound stream tail) ::= (stream statement) END | 
(stream statement) ;{compound 
stream tail) 
3 (stream declaration) ::= (stream variable declaration) | 


(label declaration) 


3 <(stream variable declaration) ::= LOCAL (stream variable list) 
| eanty) 
3 (stream variable list) ::= (stream simple variable) | 


(stream variable list), 
(stream simple variable) 


3 (stream simple variable) ::= (variable identifier) 


Example: 


STREAM PROCEDURE MOVE (SOURCE, DESTINATION, DIV32, MOD32); 
VALUE DIV32, MOD32; 


11-1 


BEGIN 
COMMENT THIS PROCEDURE WILL MOVE N WORDS FROM A FILE TO A 
TWO-DIMENSIONAL ARRAY OR VICE VERSA; 

LOCAL SOURCEDESC, DESTINATIONDESC; 
SI < SOURCE; DI « LOC SOURCEDESC; DS < WDS; 
SI + DESTINATION; DI < LOC DESTINATIONDESC; DS < WDS; 
SI < SOURCEDESC; DI < DESTINATIONDESC; 
DIV32 (DS <« 32 WDS); DS < MOD32 WDS3 
END MOVE 


SEMANTICS. 

The STREAM PROCEDURE declaration defines an identifier which re- 
presents a special kind of procedure, the stream procedure. The 
stream procedure is designed exclusively for the manipulation of 
words, characters, and bits. For this reason, the language used 
to describe a stream procedure differs from that of conventional 


procedures. 


Some of the problems to which a stream procedure can be applied 
are those involving complex editing of information on input and 
output operations, packing and unpacking of data for more effi- 
cient information storage, and scanning operations for comparison 
of data. These are but a few of the many applications in which 


stream procedures can be of significant value to the programmer. 


FORMAL PARAMETERS AND VALUE PART. All formal parameters of a 
stream procedure are treated as local to the stream block. The 
corresponding actual parameters provide initial values for the 


formal parameters as indicated by the VALUE part. 


The formal parameters listed in the VALUE part (call by value) 
are assigned the values of the corresponding actual parameters 
when the stream procedure is called. The formal parameters not 
listed in the VALUE part (call by name) are assigned the absolute 


addresses of the corresponding actual parameters. 


STREAM DECLARATIONS. All stream simple variables ina stream 
block must be declared by a stream variable declaration (LOCAL). 
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All stream simple variables are therefore local to the stream 
block. All labels in a stream block must be listed in a LABEL 


Geclaration. 


COMPOUND STREAM TAIL. The stream block includes, in addition to 
the variable and LABEL declarations, a stream statement or a series 
of stream statements. Before describing the stream statements 
individually, it is necessary to clarify certain concepts appii- 
cabie to every statement in the STREAM PROCEDURE declaration. 

The basic delimiters used in stream procedures are SI and DI. si 
(source index) denotes the core address from which information is 
to be taken. DI (destination index) denotes the core address to 


which information is to be moved. 


As has been stated, stream procedures manipulate not only words, 


but individual characters or bits as well. Hence, for the sake of 
brevity as well as clarity, the following notation has been adopted 
for discussing the various stream statements: 
a. si. - word address portion of source index. 
b. DI - word address portion of destination index. 
Ce SI. - character designator portion of source index; 
SI. = O for left-most character of word, 7 
for right-most character. 
d. DI. - character designator portion of destination 
index; DI. = O for left-most character of 
word, 7 for right-most character. 
e. sty - bit designator portion of source index; Si, = 
O for left-most bit of character, 5 for right- 
most bit. 
f. DI - bit designator portion of destination index; 


DI = O for left-most bit of character, 5 for 
right-most bit. 
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g. CL - word address portion of control index. 


h. CI_- syllable designator portion of control index; 
Cr. = 0 for left-most syllable of word, 3 for 
right-most syllable. 


i. ri - repetitive indicator. 


AUTOMATIC INDEX ADJUSTMENT. Before certain stream statements are 
executed, either the source index, the destination index, or both 
may be automatically adjusted. These adjustments are conditional 
and fall into two categories. The controlling conditions and the 
adjustments made are outlined below and are referenced throughout 


the succeeding discussion whenever applicable. 
a. Adjustment Category I. 
1) Source index. 


ff ST. 2°O or ST. # 0, then ST, SI + 1; 


b 
SI. - SI. te 
If si = O and SI. = 0, then no adjustment is made. 


2) Destination index. 


If DI, # O or DI, # O, then DI DIL + 13 
DE DE. 0s 


b 
If DI, = O and DI. = 0, then no adjustment is made. 
b. Adjustment Category II. 


1) Source index. 


If SI, # O, then SI, « 0; SI, « SI, +1 (overflow 


into Sly may occur). 


Oe as Sty = 0, then no adjustment is made. 
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2) Destination index. 


If DI, # O, then DI, «- 0; DI_ + DI_ +1 (overflow 
W 1s u 
into DI may occur). 


If DI = 0, then no adjustment is made. 


STREAM STATEMENTS. 
SYNTAX. 


The syntax for (stream statement) is as follows: 


eS) (stream statement) 235 (unlabeled stream statement) | 
(label) :(stream statement) 
3 (unlabeled stream statement) ::= (unconditional stream 
statement) | 


(conditional stream statement) 


SEMANTICS. 
Stream statements are unique to STREAM PROCEDURE declarations and 
may not be used outside such declarations. Stream statements and 


their uses are discussed in the following paragraphs. 


UNCONDITIONAL STREAM STATEMENTS. 
SYNTAX. 


The syntax for {unconditional stream statement) is as follows: 


3 (unconditional stream statement) ::= (stream address statement) 
| {destination string 
statement) | 
(stream go to statement) | 
(skip bit statement) 
(stream tally statement) | 
{stream nest statement) | 
(stream release statement) 
| {compound stream 
statement) | 


(stream dummy statement) 
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3 (stream address statement) ::= (set address statement) | 
{store address statement) | 
{skip address statement) | 


{recall address statement) 


SEMANTICS. 
The various types of unconditional stream address statements are 


described individually in the following paragraphs. 


SET ADDRESS STATEMENTS. 
OYNTAX. 


The syntax for (set address statement) is as follows: 


3 (set address statement) ::= SI < (source address part) | 
DI « (destination address part) 
3 (source address part) ::= LOC (stream simple variable) | SC 
3 (destination address part) ::= LOC (stream simple variable) | DC 


Examples: 


SEMANTICS. 
The set address statement using the delimiter LOC causes either 
the source or destination index to be set to the core location of 


the indicated stream variable. 


The set address statement using the delimiter SC or DC (see b, 
page 11-4) assigns the value contained in the next 18 bits of the 


applicable string to the source or destination index. 


STORE ADDRESS STATEMENTS. 
SYNTAX. 


The syntax for (store address statement) is as follows: 


3 (store address statement) ::= (stream simple variable) < 


{st 
(stream address index) 
lon 
| iJ 


Examples: 


T2°< DE 
T3 - Gl 


SEMANTICS. 
The store address statement causes the current value of the indi- 


cated index to be assigned to the indicated stream variable. 


The CL (Control Index) register contains the core address of the 


program word and the next program syllable to be executed. 


SKIP ADDRESS STATEMENTS. 
SYNTAX. 


The syntax for (skip address statement) is as follows: 


3 (skip address statement) 242 (Di DIL (stream arithmetic 
expression) | 
SI <- SI (stream arithmetic 
expression) 

3 (stream arithmetic expression) ::= (adding operator) 

(stream primary) 
1 (adding operator) ::= + | - 
3 (stream primary) ::= (unsigned integer) | 


{stream simple variable) 


Examples: 


SI <- SI + 3 
DI <- DI - T4 


SEMANTICS. 
The skip address statement causes SI or DI_ to be increased or 


decreased by the value of the stream primary. 


RESTRICTION. 
The source index (SI) and the destination index (DI) must never 


point to the same location, that is, St must never equal DI: 


soe, 


RECALL ADDRESS STATEMENTS. 
SYNTAX. 


The syntax for {recall address statement) is as follows: 


3 (recall address statement) ::= (stream address index) < 


(stream simple variable) 


Examples: 


SI «- SOURCE 
DI <« T2 


SEMANTICS. 
The recall address statement causes the value of a stream variable 


to be assigned to the indicated index. 


DESTINATION STRING STATEMENTS. 
SYNTAX. 


The syntax for (destination string statement) is as follows: 


3 (destination string statement) ::= DS « (transfer part) 
3 (transfer part) ::= (source string transfer) | (literal trans- 

fer) | (blank replacement transfer) 
3 (source string transfer) ::= (repetitive indicator) 

(transfer type) 
3 (repetitive indicator) ::= (stream repeat part) | 
(stream simple variable) 

3 (stream repeat part) ::= (empty) | (unsigned integer) 
3 (transfer type) ::= (transfer words) | (transfer characters) | 
transfer and convert) | (transfer and add) 
{transfer character portions) 
(transfer words) ::= WDS 
(transfer characters) ::= CHR 
(transfer and convert) ::= (input convert) | (output convert) 
<input convert) ::= OCT 
{output convert) ::= DEC 
(transfer and add) ::= ADD | SUB 
(transfer character portions) ::= ZON | NUM 


lon bo bb bo bk» bo bo 
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3 (literal transfer) ::= (literal characters) | (literal bits) 

3 (literal characters) ::= (unsigned integer) LIT (string) 

3 (literal bits) ::= (repetitive indicator) SET | (repetitive 
indicator) RESET 

3 (blank replacement transfer) ::= (repetitive indicator) FILL 


Examples: 
Transfer words: DS < 6 WDS 
Transfer characters: DS <- 5 CHR 
Input convert: DS <- 6 OCT 
Output convert: DS - 5 DEC 
Transfer and add: DS «- 3 ADD 
DS 2 SUB 
Transfer zone bits: DS <- VARY ZON 
Transfer numeric bits: DS <« 4 NUM 
Literal transfer: DS «- 7 LIT "HEADING" 
Literal bits: DS « X SET 
DS « Y RESET 
Blank replacement: DS - 8 FILL 
SEMANTICS. 


To be able to use the bit manipulating possibilities of the desti- 
nation string statements, it is necessary to know that, within a 


character, the bit positions are designated as shown below: 


Bla ls] 4 {2]2| 
Or ~<a, “2 73% He 35 
The B and A bits are referred to as the zone bits of the character. 
The 8, 4, 2, and 1 bits are referred to as the numeric part of the 


character. It is possible to operate independently on either the 


zone or the numeric part of a character. 


TOGGLE is the name of a TRUE/FALSE indicator which can be set and 


reset by various stream procedure operations. 
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TRANSFER WORDS. The transfer words option (see a, page 11-4) causes 
the number of words specified by the repetitive indicator to be 
transferred from the source string to the destination string. The 


execution of this statement affects SI and DI as follows: 


Si. SL, Fo PL 
WwW WwW 


DE DL. ae a. 
Ww Ww 


TRANSFER CHARACTERS. The transfer characters option (see b, page 
11-4) causes the number of characters specified by the repetitive 
indicator to be transferred from the source string to the desti- 
nation string. The execution of this statement affects SI and 


DI as follows: 


SI. = St. + ri (overflow into si can occur) 


DL DL. a4 (overflow into DI, can occur ) 


INPUT CONVERT. The input convert option (page 11-4) causes the 
number of source characters (numeric bits only) specified by the 
repetitive indicator to be transferred and converted to one octal 
word in the destination string. The resulting octal word is an 
integer. The sign of the integer is determined by the zone bits 
(B,A) of the right-most character in the source field (1,0 = minus; 
any other combination = plus). The execution of this statement 


affects SI and DI as follows: 


StI. te SI. ome 6a 8 (overflow into si. can occur) 


DI... DL. + 1 
WwW WwW 


RESTRICTION. The value of the repetitive indicator must not be 


greater than 8. 


OUTPUT CONVERT. The output convert option (page 11-4) causes one 
octal word in the source string to be transferred and converted to 
the number of decimal destination characters specified by the re- 
petitive indicator. The octal word is treated as an integer. The 
sign is placed in the zone bits (B,A) of the right-most destina- 
tion character (1,0 = minus; any other combination = plus). All 
other destination zone bits are set to ZERO. 
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If the converted value requires more than the specified number of 
destination characters, the most-significant digits are lost and 
TOGGLE is set to FALSE; otherwise, TOGGLE is set to TRUE. The exe- 


cution of this statement affects SI and DI as follows: 


SI «+ SI +1 
w w 
DI, ~ DI, + ri (overflow into DI, can occur) 


mmm Te INIT LN rr 


RESTRICTION. Tne value o 


greater than 8. 


TRANSFER AND ADD. The transfer and add option (see page 11-4) 
causes the number of source characters specified by the repetitive 
indicator to be algebraically added to or subtracted from a like 
number of destination characters. The signs of the two fields are 
the zone bits (B,A) of their respective right-most characters 

(1,0 = minus; any other combination = plus). All other source 
zone bits are ignored and alli other destination zone bits are set 
to zero. The sign of the result is placed in the zgone bits of 

the right-most destination character. If overflow occurs in the 
destination field, TOGGLE is set to TRUE; otherwise, it is set to 
FALSE. The execution of this statement affects SI and DI as 
follows: 


SI. ie SI. + ri (overflow into siv can occur) 


DI. a DI. + ri (overflow into DI. can occur) 


TRANSFER CHARACTER PORTIONS. The transfer character portions 
option (see page 11-4) causes either the zone bits or the numeric 
bits of the number of source characters specified by the repetitive 
indicator to be transferred to the same portions of a like number 


of destination characters. 


When the transfer zone bits option is used, the numeric portions 

of the destination characters are not affected. When numeric bits 
only are transferred, however, the zone portions of the destination 
characters are set to zero. TOGGLE is set only when numeric bits 


alone are transferred as follows: If the zone bits (B,A) of the 
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right-most source character are 1,0 (minus), TOGGLE is set to TRUE; 
otherwise, it is set to FALSE. The execution of this statement 


affects SI and DI as follows: 


St. = Si. + ri (overflow into si. can occur) 


DI. a DI. + ri (overflow into DI can occur) 


LITERAL CHARACTERS. The literal characters option causes the num- 
ber of string characters specified by the unsigned integer to be 
placed in the destination string. The unsigned integer should 
equal the number of characters in the string. If it is greater 
than the number of string characters, repetitive left-to-right 
use is made of the string characters until the designated number 
of destination characters are filled. If it is less, the right- 
most string characters are ignored. The execution of this state- 


ment affects DI only, as follows: 


DI, ae DI. + unsigned integer (overflow into DI can occur) 


LITERAL BITS. "Literal bits" causes the number of destination 
bits specified by the repetitive indicator to be set to ONE or re-= 


set to ZERO. The execution of this statement affects DI only, as 


follows: 


DI + DI, + ri (overflow into DI. can occur, as well as 


overflow into DI, ) 


REPETITIVE INDICATOR. The value of the repetitive indicator must 


never exceed 63. 


BLANK REPLACEMENT. The blank replacement transfer only affects 
the destination string and the destination string address. The 
destination string address is adjusted so that the field begins 

at a character boundary. Each character of the destination string 
is examined and if it is equal to or less than zero (<0) in the 
collating sequence, that character is replaced with the blank 


character code. Replacement stops if a character is equal to or 


STREAM GO TO STATEMENTS. 
SYNTAX 


The syntax for (stream go to statement) is as follows: 
3 (stream go to statement) ::= GO TO (label) 


Example: 


GO TO START 


SEMANTICS. 
The stream GO TO statement causes transfer of control to the 
statement with the designated label. The label must be one de- 


clared in the stream block. 


RESTRICTION. 
A stream GO TO statement must not cause transfer into or out ofa 


stream nest statement. 


SKIP BIT STATEMENTS. 
SYNTAX. 
The syntax for (skip bit statement) is as follows: 


3 (skip bit statement) ::= SKIP (repetitive indicator) 
(source or destination bit) 


3 (source or destination bit) ::= SB | DB 


Examples: 
SKIP N SB 
SKIP 12 DB 


The SKIP bit statement affects only SI or DI, and does so as 
follows: 


St Ars) rea (overflow into SI, can occur, as well 


as overflow into sI_) 


DI = DI, + ri (overflow into DI. can occur, as well 


as overflow into DI) 


ua ea es! 


STREAM TALLY STATEMENTS. 
SYNTAX. 


The syntax for (stream tally statement) is as follows: 


3 (stream tally statement) ::= TALLY < (stream primary) | 
TALLY « TALLY + (stream primary) | 
(stream simple variable) <- TALLY 


Examples: 


TALLY <« ABLE 

TALLY «- TALLY + 1 
TALLY <« TALLY + BETA 
GAMMA < TALLY 


SEMANTICS. 

The stream TALLY statement provides a counting mechanism for 
stream procedures. TALLY may contain values ranging from O to 63. 
The counter may be stepped by adding an integer to its current 
value. All overflows are lost. To reset or decrement TALLY, the 


program must increment it to or beyond the overflow point. 


STREAM NEST STATEMENTS. 
SYNTAX. 


The syntax for (stream nest statement) is as follows: 


3 (stream nest statement) ::= (repetitive indicator) 
(<compound nest) ) 
3 (compound nest) ::= (nest) | (nest) ;{compound nest) 
3 (nest) ::= (stream statement) | (jump out statement) | 
<label) : (jump out statement) 
3 (jump out statement) ::= JUMP OUT | JUMP OUT (number of nests) 
TO (label) 
3 (number of nests) ::= (empty) | (unsigned integer) 


Examples: 


25 (IF sC = "E" THEN JUMP OUT; SI < SI + 1; TALLY « TALLY + 1) 
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30 (IF 8 SC = DC THEN 8 (IF SC = ALPHA THEN JUMP OUT 2 TO 
L2; SI <- SI + 1); TALLY - TALLY + 1); L2: S 


SEMANTICS. 

The stream nest statement serves as a repetitive control state- 
ment by means of which loops can be described and the number of 
passes specified by the repetitive indicator. Any stream state- 


ment may appear in a compound nest. 


An additional statement, the JUMP OUT statement, is allowed only 
in a compound nest. The simple form of JUMP OUT statement trans- 
fers control to the statement immediately beyond the next right 
parenthesis. The JUMP OUT to a label form may be used to escape 
from as many nests as desired and to a specific labeled statement. 
The JUMP OUT statement itself may be labeled. The number of nests 
(right parentheses) over which a JUMP OUT is to be effective must 


be given as an integer. If the integer is 1, it may be omitted. 
RESTRICTIONS. 
A stream nest statement may be entered only at its beginning. The 


JUMP OUT statement must not be used in any construct other than a 


stream nest statement. 


STREAM RELEASE STATEMENTS. 
SYNTAX. 


The syntax for (stream release statement) is as follows: 


3 (stream release statement) ::= RELEASE (<formal parameter) ) 


Example: 


ee) 
Fe 
i 
iJ 
> 
op) 
3) 
vV—— 


FILENAME1 ) 


SEMANTICS. 

The actual parameter corresponding to the formal parameter of a 
stream RELEASE statement must be a file identifier. If the iden- 
tifier is that of an input file, the stream RELEASE statement 
causes one buffer of the file to be filled with new data. If the 
identifier is that of an output file, the stream RELEASE statement 


11-15 


causes the contents of one output buffer to be transferred to the 


appropriate output device. 


Both SI and DI must be reset since the values of both are lost 


with a stream RELEASE statement. 


RESTRICTION. 
The formal parameter of a stream RELEASE statement must not be 


called by value. 


COMPOUND STREAM STATEMENTS. 
SYNTAX. 


The syntax for (compound stream statement) is as follows: 


3 (compound stream statement) ::= BEGIN (compound stream tail) 


Example: 


BEGIN SI « LOC Q1; T2* DI; DI <« Tl END 


SEMANTICS. 
The compound stream statement is a set of stream statements bounded 
by BEGIN and END. 


STREAM DUMMY STATEMENTS. 
SYNTAX. 


The syntax for (stream dummy statement) is as follows: 
3 (stream dummy statement) ::= (empty) 


Examples: 


BOTTOM: 
FINI: 


SEMANTICS. 
A dummy statement executes no operation. It may serve to place a 


label. 
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CONDITIONAL STREAM STATEMENTS. 
SYNTAX. 


The syntax for (conditional stream statement) is as follows: 


3 (conditional stream statement) ::= (stream if clause) 
(unconditional stream 
statement) | 
(stream if clause) 

(label) : (unconditional 
stream statement) | 
(conditional stream state- 


ment) ELSE (stream state- 


ment» 
3 (stream if clause) ::= IF (test) THEN 
3 (test) ::= (source with literal) | (source with destination) | 


(source bat) | TOGGLE | (source for alpha) 
3 (source with literal) ::= SC (relational operator) 
"(string character)" | 
SC (relational operator) 
"(string bracket character)" 
3 (source with destination) ::= (repetitive indicator) SC 


(relational operator) DC 


3 (source bit) ::= SB 
3 (source for alpha) ::= SC = ALPHA 
Examples: 


Conditional Stream Statements: 


Stream IF clause: IF sc = "E" THEN GO TO CONTINUE 


Stream IF clause 
with labeled statement: IF SC > "E" THEN REPLACE: 
DS «- 5 LIT "FALSE" 


Conditional Stream Tests: 


Source with literal: IF sc = "E" THEN GO TO CONTINUE 
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Conditional Stream Tests (cont): 


Source with destination: IF 8 SC < DC THEN GO TO TUSCON 


source bit: if SB THEN SE = SI +: 1 

Toggle: IF TOGGLE THEN DS < X ZON 

Source for alpha: IF SC = ALPHA THEN SI =- SI + 1 
SEMANTICS. 


The conditional stream statement causes the stream statement 
following the IF clause to be executed if the test is TRUE; other- 
wise, the statement is ignored. The execution of every conditional 
stream statement sets TOGGLE to TRUE or FALSE according to the 
result of the test. One exception to this is that a test of 


TOGGLE does not change the TOGGLE value. 


SOURCE WITH LITERAL. The source with literal option (see b, page 
11-4, for SI only) causes one source character to be compared with 


the character indicated in the test. 


SOURCE WITH DESTINATION. The source with destination option (see 
b, page 11-4) compares a specified number of source characters with 
the same number of destination characters. The execution of this 


statement affects SI and DI as follows: 


SI. = St. ea (overflow into Sie can occur) 


DI. = DI. + ri (overflow into DI can occur) 
SOURCE BIT. This test causes one source bit to be tested for 1. 


TOGGLE. This test is merely one for the value of TOGGLE. As 


mentioned above, it causes no change in the value of TOGGLE. 


SOURCE FOR ALPHA. The source for alpha option (see b, 11-4, 

for SI only) tests one source character for equal condition only. 
A syntax error will result if the test is made for unequal condi- 
tion. If the source character is a letter or a digit, TOGGLE is 


set to TRUE; otherwise, TOGGLE is set to FALSE. 
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SECTION 12 


SORT STATEMENT AND MERGE STATEMENT 


SORT STATEMENT. 
SYNTAX. 


The syntax for {sort statement) is as follows: 


3 (sort statement) ::= SORT ((output option), (input option), 
(number of tapes), (hivalue procedure), 
(compare procedure), (record length) 
(size specifications) ) 
3 (size specifications) ::= (empty) | (core size) | {core size) 


(disk size) 


3 (core size) ::= , (arithmetic expression) 
3 (disk size) oe (arithmetic expression) 
3 (record length) ::= (arithmetic expression) 
3 <compare procedure) ::= (identifier) 
3 Chivalue procedure) ::= (identifier) 
3 (number of tapes) ::= (arithmetic expression) 
3 <input option) ::= (file part) | <input procedure) 
3 (input procedure) ::= (identifier) 
3 (output option) ::= (file part) | (output procedure) 
3 (output procedure) ::= (identifier) 
Examples: 
SORT (OUTPRCD, INPRCD, 3, HIVAL, COMP, 3) 
SORT (OUTFID, INFID, 0, HI, CMP, 2) 
SEMANTICS. 


The SORT statement provides the means whereby data, as specified 
by the (input option), is reordered and returned to the program, 
as specified by the {output option). The sequence of reordering 


the data is determined by the (compare procedure). 


The size specifications allow the programmer to specify the amount 


of main memory and the amount of disk storage that may be used. 


The core size, if present, specifies the number of words of main 
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memory that may be used. If unspecified, a value of 12,000 is 


assumed. 


The disk size, if present, specifies the amount of disk storage in 
words that may be used. If unspecified, a value of 600,000 words 
of disk storage is assumed (this is equivalent to 0.5 disk file 


modules). 


The record length represents the length in words of the largest 
item that will be presented to the SORT statement. If the value 

of the arithmetic expression is not a positive integer, the largest 
integer which is less than the absolute value of the expression 
will be used (7.65, a record length of 12 would be used if an 
expression had a value of ~12.995). If the value of the arithmetic 


expression is zero (0), the program will loop indefinitely. 


The compare procedure is called by the SORT to determine which of 
two records should be used next in the sorting process. It must 

be a BOOLEAN procedure with exactly two (2) parameters. Both of 
the parameters must be arrays. The Boolean value which is returned 
via the procedure identifier should be TRUE if the array given as 
the first parameter is to appear in the output before the array 
given as the second parameter. As an example, the following pro- 


cedure could be used for sorting in ascending sequence: 


BOOLEAN PROCEDURE CMP (A, B); 
ARRAY A, B [0]; 
CMP + afO] < BLO]; 


In the example, CMP would be TRUE if array A is equal to or less 
than array B, and CMP would be FALSE if array A is greater than 
array B. This would result in the lower valued array being passed 


to the output first. 


The hivalue procedure is called by the SORT to create a unique 

record for its own internal use. The record created is not re- 
turned as sorted output. This created record must be such that 
it will cause the compare procedure to determine that it should 


appear after all valid input items being sorted. This procedure 
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must be untyped and must have an array as its only parameter. 
This procedure is a hivalue procedure if sorting in ascending 
sequence, and essentially a low-value procedure if sorting ina 
descending sequence. An example of a hivalue procedure that 


could be used by the compare procedure on page 12-2 follows: 


PROCEDURE HV (A); 
ARRAY Al 0]; 
FILL Al *] WLTH OCT7777777777777773 


The number of tapes specifies the number of tape files that may 
be used, if necessary, in the sorting process. If the value of 
the arithmetic expression is less than three (3), no tapes will 
be used. If five (5) or more tapes are specified, five tapes may 
be used if it is necessary; otherwise, the specified number of 


tapes will be used, if necessary. 


i be ad i ias the input option, the records in that 
If an input file is used as the input opt » th d in that 


file will be used as input to the SORT. This file will be LOCKed 
after all of the records on the file have been read by the SORT. 


If an input procedure is used as the input option, the procedure 
is called on to furnish input records to the SORT. This input 
procedure must be a BOOLEAN PROCEDURE, with an array as its only 


parameter. This procedure, on each call, will: 


as Either insert the next record to be sorted into 


its array parameter. 


b. Or assign a TRUE value to the procedure identifier. 


When a TRUE is returned by the input procedure, the SORT will not 
use the contents of the array parameter and will not call on the 
input procedure again during the SORT. An example of an input 


procedure that will sort N elements of the array Q follows: 


BOOLEAN PROCEDURE INPROC (A); 
ARRAY A[ 0]; 


—™ arn TYAN SL, 


rr f TAT Ty. T ~ 
IF NOT (INPROC- (N-N-1) < 0) THEN A[O] - 


L225 


If an output file is specified as the output option, the SORT will 
write the sorted output on this file. Upon completion of the SORT, 
the file will be LOCKed. 


If an output procedure is specified as the output option, the SORT 


will call on this procedure once for each sorted record and once 


to allow end-of-output action. This procedure must be untyped and 
must use two parameters. The first parameter must be Boolean and 
the second parameter must be an array. The Boolean parameter 


will be FALSE until the last record has been returned from the 
SORT. When the first parameter is FALSE, the second parameter 
will contain a sorted record. When all records have been returned, 
the first parameter will be TRUE and the second parameter must not 


be accessed. An example of an output procedure follows: 


PROCEDURE OUTPROC (B, A); 
VALUE B; 

BOOLEAN B; 

ARRAY A[ 0]; 


IF B THEN CLOSE (FILEID, RELEASE) ELSE WRITE (FILEID, 
RECSIZE, A[ *]); 


PROGRAM EXAMPLE. 
The following is an example of a program to perform a tag sort 


of a disk file, with printed output. 


SAMPLE TAG SORT PROGRAM BEGIN 
FILE IN DISK DISK RANDOM "INPUT" "TOSORT"(2,15,30); 
FILE OUT P 6(2,15);3 
BOOLEAN BOO; 
ARRAY Q[ 0:14]; 
INTEGER N; 
BOOLEAN PROCEDURE IP(A); ARRAY A[ 0]; 
BEGIN LABEL EOF, XIT; 
READ(DISK[ N],15,Q[ *])[ EOF]; 
A{ O]<Q[ 0]; AL 1]-N; N-N+1; 
GO TO XIT; 


G4 
oO 
9 
oy 
© 
1 
aa 
CS 
te 
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XIT: IP-BOO; 
END IP; 
BOOLEAN PROCEDURE CMP(A,B); ARRAY A,B[O]; CMP-a[ 0|<B/ 0]; 
PROCEDURE HV(A); ARRAY A[O]; Al 0]-549755813887; 
PROCEDURE OP(B,A); VALUE B; BOOLEAN B; ARRAY A[ 0]; 
ITF B THEN CLOSE(P) ELSE 
BEGIN FORMAT F(1I8," 1" 


" ‘ 


i Li 


eae 
~wo 


READ(DISK[ A[1]],F,N)3 
WRITE(P,F, A[ 0]); 
END OP; 

COMMENT START OF PROGRAM; 
BOO-FALSE; 
N-O;3 
SORT(OP,IP,0,HV,CMP, 2); 
END OF PROGRAM. 


MERGE STATEMENT. 
SYNTAX. 


The syntax for (merge statement) is as follows: 


3 (merge statement) ::= MERGE (output option), (hivalue 
procedure), (compare procedure), 


(record length), (merge file list)) 


3 (merge file list) ::= (merge file), (merge file) | 

(merge file), (merge file list) 
3 (merge file) ::= (file identifier) | (switch file designator) 
Examples: 


MERGE (FA, HV, CMP, 10, SWF[I], FC, FILESW[I]); 


SEMANTICS. 
The MERGE statement causes data in all of the files specified by 
the merge file list to be combined and returned. The compare 


procedure determines the manner in which the data is combined. The 
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output option specifies the way in which the data is returned 


from the merge. 


The merge file list must contain two files but may contain as 


many as seven merge files as input to the merge. 
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APPENDIX A 
RESERVED WORDS 
Some reserved words in Extended ALGOL may be used as identifiers 


in certain constructs. Hence, the following list of reserved 


words is divided into four types as follows: 


Type 1 - reserved throughout Extended ALGOL 
Type 2 - reserved in Stream Procedures only. 
Type 3 - standard function designators. These may be used 


for any purpose for which they have been deciared; 


t deciared, 


Type 4 - may be used as identifiers, except in those con- 


structs where they appear in the syntax. 


Type 1 
ALPHA EQV LIST SAVE 
AND FALSE LOCK SPACE 
ARRAY FILE MOD STEP 
BEGIN FILL MONITOR STREAM 
BOOLEAN FOR NOT SWITCH 
CLOSE FORMAT OR THEN 
COMMENT FORWARD OUT TO 
DEFINE GO OWN TRUE 
DIV IF PROCEDURE UNTIL 
DO IMP READ VALUE 
DOUBLE IN REAL WHILE 
DUMP INTEGER RELEASE WITH 
ELSE LABEL REWIND WRITE 


END 


ADD 
CHR 
CL 

DB 

DC 
DEC 
DELAY 


ASB 
ARCTAN 
COS 


BREAK 
DBL 
DISK 
EQL 
EXPOVR 
FLAG 
GEQ 
GTR 
INDEX 


DI 

DS 
JUMP 
LIT 
LOC 
LOCAL 
MAX 


ENTIER 
EXP 
LN 


INTOVR 
LB 


NO 
PAGE 
PRINT 


SET 


SIGN 
SIN 
SQRT 


PUNCH 
PURGE 
RANDOM 


RB 


REVERSE 


SEARCH 
SEEK 
SERIAL 


sf 
SKIP 
SUB 
TALLY 
TOGGLE 
WDS 
ZON 


STATUS 
TIME 


APPENDIX B 


INTERNAL CHARACTER CODES 
(In Order of Collating Sequence) 


Character 6-bit Code Character 6-bit Code 
blank 11 0000 H 01 1000 
: O01 1010 T O01 1001 
fi O1 1011 x 10 0000 
( O1 1101 Al iO 0001 
z O01 1110 K 10 0010 
- O1 1111 L 10 0011 
& Q1 1100 M 10 0100 
¢ 10 1010 N 10 0101 
* 10 1011 O 10 0110 
) 10 1101 P 10 0111 
; 10 1110 Q 10 1000 
< 10 1111 R 10 1001 
- 10 1100 Z 11 1100 
fe 11 0001 S 11 0010 
; 11 1010 T 11 OO11 
% 11 1011 U 11 0100 
= 11 1101 V 11 0101 
| 11 1110 W 11 0110 
" 11 1111 pe 11 0111 
# 00 1010 Y 11 1000 
@ 00 1011 Z 11 1001 
: 00 1101 O 00 0000 
> 00 1110 1 00 0001 
= 00 1111 2 00 0010 
+ 01 9000 3 00 OO11 
A O01 0001 4 00 0100 
B 01 0010 5 00 O101 
C 01 0011 6 00 0110 
D O1 0100 7 00 0111 
E 01 0101 8 00 1000 
F 01 0110 9 00 1001 
G O1 0111 ? 00 1100 


APPENDIX C 
COMPILER ERROR MESSAGES 


ERROR 
NUMBER ROUTINE ERROR MESSAGE 

000 BLOCK Declaration not followed by semicolon. 

O01 BLOCK Identifier declared twice in same block. 

002 PROCEDUREDEC Specification part contains identifier 
not appearing in formal parameter part. 

003 BLOCK Non-identifier appears in identifier 
list of declaration. 

OO4 PROCEDUREDEC STREAM PROCEDURE declaration preceded 
by illegal declarator. 

005 PROCEDUREDEC PROCEDURE declaration preceded by 
illegal declarator. 

006 PROCEDUREDEC PROCEDURE identifier used before in 
same block (not forward). 

007 PROCEDUREDEC PROCEDURE identifier not followed by ( 
or semicoion in PROCEDURE deciaration. 

008 PROCEDUREDEC Formal parameter list not followed by ). 

O09 PROCEDUREDEC Formal parameter part not followed by ye 

010 PROCEDUREDEC VALUE part contains identifier which 
did not appear in formal parameter part. 

O11 PROCEDUREDEC VALUE part not ended by semicolon. 

012 PROCEDUREDEC Missing or illegal specification part. 

013 PROCEDUREDEC OWN used in ARRAY specification. 

O14 PROCEDUREDEC SAVE used in ARRAY specification. 

O15 ARRAYDEC ARRAY call-by-value not implemented. 

016 ARRAYDEC ARRAY ID in declaration not followed by [. 

017 ARRAYDEC Lower bound in ARRAY declaration not 
followed by :. 

018 ARRAYDEC Bound pair list not followed by ]. 

019 ARRAYSPEC Tlilegal lower bound designator in ARRAY 
specification. 

020 BLOCK OWN appears immediately before identifier 
(no type). 

O21 BLOCK SAVE appears immediately before identifier 
(no type). 


ROUTINE 
BLOCK 
BLOCK 


PROCEDUREDEC 
BLOCK 


FILEDEC 
FILEDEC 
FILEDEC 


FITILEDEC 
TODEC 
LISTDEC 
FORMATDEC 
SWITCHDEC 


SWITCHFILEDEC 
SWITCHFILEDEC 


SUPERFORMATDECG 
SUPERFORMATDEC 
SUPERFORMATDEC 
BLOCK 

IODEC 
HANDLESWLIST 
HANDLESWLIST 
ITODEC 

TODEC 

DEFINDEC 
ARRAE 


TABLE 


APPENDIX C (cont) 


ERROR MESSAGE 


STREAM appears immediately before identi- 
fier (the word PROCEDURE has been omitted). 


Declarator preceded illegally by another 
declarator. 


Label cannot be passed to function. 


Declarator or specifier illegally preceded 
by OWN or SAVE or some other declarator. 


Missing ( in FILE declaration. 
Missing record size. 


Tilegal buffer part or SAVE factor in 
FILE declaration. 


Missing ) in FILE declaration. 
Missing colon in disk description. 
Missing ( in LIST declaration. 
Missing ( in FORMAT declaration. 


SWITCH declaration does not have < or 
FORWARD after identifier. 


Missing «+ after FILE declaration. 


Non-file ID appearing in declaration of 
SWITCHFILE. 


Format ID not followed by < . 

Missing ( at start of format phrase. 

Format segment > 1022 words. 

Number of nested blocks is greater than 31. 
Program parameter block size exceeded. 
Missing « after SWITCH LIST ID. 

Tllegal list ID appearing in SWITCH LIST. 
Missing | after DISK in FILE declaration. 
Missing [ after DISK in FILE declaration. 
Missing = after DEFINE ID. 


Non-literal ARRAY bound not global to 
ARRAY declaration. 


Ttem following @ is not a number. 


102 


103 


104 
105 
106 
107 
108 


109 


110 


1il 


ROUTINE 


PROCEDUREDEC 


PROCEDUREDEC 


ARRAYDEC 
FAULTSTMT 
FAULTDEC 


CASESTMT 
CASESTMT 
ANYWHERE 
CHECKER 


AEXP 


PRIMARY 


ANYWHERE 
ANYWHERE 
PRIMARY 
BEXP 
EXPRSS 


BOOSEC ; 
SIMPBOO, and 
BOOCOMP 


BOOCOMP 


BOOPRIM 


APPENDIX C (cont) 


ERROR MESSAGE 


Number of parameters differs from FORWARD 
declaration. 


Class of parameter differs from FORWARD 
declaration. 


VALUE part differs from FORWARD declara- 


Improper ARRAY size. 
Missing «+ in FAULT statement. 


Tnvalid FAULT type; must be FLAG, EXPOVR, 
ZERO; INTOVR; or INDEX. 


Missing BEGIN. 
Missing END. 
Undeclared identifier. 


An attempt has been made to address an 
identifier which is local to one procedure 
and global to another. If the quantity is 
a procedure name or an OWN variable, this 
restriction is relaxed. 


Conditional expression is not of arith- 
metic type. 


Primary may not begin with a quantity of 
this type. 


Missing right parenthesis. 

Missing left parenthesis. 

Primary may not start with a declarator. 
The expression is not of BOOLEAN type. 


A relation may not have conditional ex- 
pressions as the arithmetic expressions. 


The primary is not Boolean. 


A non-Boolean operator occurs in a Boolean 
expression. 


No expression (arithmetic, Boolean, or 
designational) may begin with a quantity 
of this type. 


ERROR 
NUMBER 


112 


113 


114 


115 


129 
gO 
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ROUTINE 
BOOPRIM 


PARSE 


DOTSYNTAX 


DEXP 


IFCLAUSE 

BANA 

BANA 
COMPOUNDTAIL 
COMPOUNDTAIL 
ACTUALPARAPART 


ACTUALPARA PART 


ACTUALPARAPART 


ACTUALPARAPART 


ACTUALPARA PART 


ACTUALPARA PART 


ACTUALPARA PART 


ACTUALPARAPART 


ACTUALPARAPART 
RELSESTMT 


APPENDIX C (cont) 


ERROR MESSAGE 


No expression (arithmetic, Boolean, or 
designational) may begin with a declarator. 


Either the syntax or the range of the 
literals for a concatenate operator is 
incorrect. 


Either the syntax or the range of the 
literals for a partial word designator 
is incorrect. 


The expression is not of designational 
type. 

THEN is missing. 

Missing left bracket. 

Missing right bracket. 

Missing semicolon or END. 

END is missing. 


An indexed file may be passed by name only 
and only to a STREAM PROCEDURE. The 
STREAM PROCEDURE may not do a release on 


ta —<—_sa os ae eee 
this type parameter. 


STREAM PROCEDURE may not have an expres- 
sion passed to it by name. 


The type of the actual and formal param- 
eters does not agree. 


Actual and formal arrays do not have the 
same number of dimensions. 


STREAM PROCEDURES may not be passed as a 
parameter to a procedure. 


No actual parameter may begin with a 
quantity of this type. 


This type quantity may not be passed to 
a STREAM PROCEDURE. 


Either (1) actual and formal parameters 
do not agree in number, or (2) extra 
right parenthesis. 


Tilegal parameter delimiter. 


No file name. 


ERROR 
NUMBER 


L3L 
132 
133 
134 
135 
136 
137 


138 


ROUTINE 


DOSTMT 
WHILESTMT 
LABELR 
LABELR 
LABELR 
FORMAT PHRASE 
FORMAT PHRASE 


FORMAT PHRASE 


TABLE 
NEXTENT 


DEFINEGEN 


COMPOUNDTAIL 
STMT 


STMT 


STMT 


SWITCHGEN 
GETSPACE 


GETSPACE 


ACTUALPARA PART 


FORSTMT 


APPENDIX C (cont) 


ERROR MESSAGE 


Missing UNTIL. 

Missing DO. 

Missing colon. 

The label was not declared in this block. 
The label has already occurred. 

Improper format editing phrase. 


A format editing phrase does not have an 
integer where an integer is required. 
The width is too small in E or F editing 
phrases. 

Define is nested more than eight deep. 


An integer in a format is greater than 
1023. 


Integer or iden 
characters. 


a oe 


tifier has more than 63 


A define contains more than 2047 charac- 
ters (blank suppressed). 


Extra END. 


No statement may start with this type 
quantity. 

No statement may start with this type 
quantity. 


No statement may start with a declarator; 
may be a missing end of a procedure or a 
misplaced declaration. 


More than 256 expressions in a SWITCH 
declaration. 


More than 1023 program reference table 
cells are required for this program. 


More than 255 stack cells are required for 
this procedure. 


Constants may. not be passed by name to 
STREAM PROCEDUREs. 


Missing left arrow following index 
variable. 
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APPENDIX C (cont) 
ERROR 
NUMBER ROUTINE ERROR MESSAGE 
153 FORSTMT Missing UNTIL or WHILE in step element. 
154 FORSTMT Missing DO in for clause. 
155 IFEXP Missing ELSE. 
156 LISTELEMENT A designational expression may not bea 
list element. 
157 LISTELEMENT A row designator may not be a list element. 
158 LISTELEMENT Missing right bracket in a group of 
elements. 
159 PROCSTMT Tilegal use of PROCEDURE or FUNCTION 
identifier. 
160 PURGE Declared label does not occur. 
161 PURGE Declared FORWARD procedure does not occur. 
162 PURGE Declared SWITCH FORWARD does not occur. 
163 FORMAT PHRASE The width of a field is more than 63. 
164 UNKNOWNSTMT Missing comma in ZIP or WAIT statement. 
165 IMPFUN Missing comma in delay parameter list. 
200 EMIT Segment too large (> 4093 syliabies). 
201 SIMPLE Partial word designator not left-most 
VARIABLE in a left part list. 
202 SIMPLE Missing . or< . 
VARIABLE 
203 SUBSCRIPTED Wrong number of subscripts in a row 
VARTABLE designator. 
204 SUBSCRIPTED Missing | in a row designator. 
VARIABLE 
205 SUBSCRIPTED A row designator appears outside of an 
VARIABLE actual parameter list of FILL statement. 
206 SUBSCRIPTED Missing ]. 
VARIABLE 
207 SUBSCRIPTED Missing [. 
VARTABLE 
208 SUBSCRIPTED Wrong number of subscripts. 
VARTABLE 
209 SUBSCRIPTED Partial word designator not left-most in 
VARTABLE a left part list. 


269 


ROUTINE 


SUBSCRIPTED 
VARIABLE 


VARIABLE 
VARIABLE 


STREAM STMT 


ANY STREAM 
STMT PROCEDURE 


RELEASES 


GOTOS, LABELS, 
OR JUMPS 


LABELS 
LABELS 
GOTOS 


JUMPS 
NESTS 
IFS 
IFS 
IFS 


IFS 
FREDFIX 


EMITC 


TABLE 


APPENDIX C (cont) 


ERROR MESSAGE 
Missing . ors. 


PROCEDURE ID used outside of scope in 
left part. 


Subarray designator permitted as actual 


parameter only. 
Tllegal STREAM statement. 


Missing <- . 


Missing + or - . 
Missing number or stream variable. 
Missing string in DS« literal statement. 


Missing parenthesis or file identifier is 
not a formal parameter. 


Label specified is not on the same nest 
level as a preceding appearance of the 
label. 


Missing :. 
Label appears more than once. 


Missing label in a GO TO or JUMP OUT TO 
statement. 


Missing OUT in JUMP OUT statement. 
Missing parenthesis. 

Missing source character in IF statement. 
Missing relational in IF statement. 


Missing ALPHA, destination character, 
or string in IF statement. 


Missing THEN in IF statement. 


There are GO TO statements in which the 
label is undefined. 


A repeat index > 64 was specified, or 
there are too many formal parameters, 
locals; and labels. 


A constant is specified which is too 
large or too small. 


C=/ 


ROUTINE 
IFS 
IFS 


DBLSTMT 
DBLSTMT 
DBLSTMT 
DBLSTMT 
DBLSTMT 
FILLSTMT 


FILLSTMT 
FILLSTMT 
FILLSTMT 


FILLSTMT 
CHECKCOMMA 
OUT PROCHECK 
OUTPROCHECK 
OUTPROCHECK 
OUTPROCHECK 


SORTSTMT 
HVCHECK 


HVCHECK 


HVCHECK 


EQLES CHECK 


APPENDIX C (cont) 


ERROR MESSAGE 


Relational in SC (relational) ALPHA must 
be "equal". 


Improper construct for (source with 
literal). . 


Missing (. 
Too many operators. 
Too many operands. 
Missing ; . 
Missing ) . 


The identifier following the word FILL is 
not an ARRAY identifier. 


Missing WITH in FILL statement. 
Improper FILL statement. 


Non-octal character in octal fill. The 
three low-order bits are converted and 
compiiation continues. 


Improper row designator. 


Missing or illegal parameter delimiter in 
SORT or MERGE statement. 


Illegal type for SORT or MERGE output 
procedures. 


Output procedure in SORT or MERGE state- 
ment does not have exactly two parameters. 


First parameter of output procedure must 
be Boolean. 


second parameter of OUTPUT procedure must 
be one-dimension array. 


Missing (. 
Tllegal type for SORT or MERGE highvalue 
procedure. 


Hivalue procedure does not have exactly 
one parameter, 


Hivalue procedure parameter not one- 
dimension array. 


SORT or MERGE COMPARE procedure not 
Boolean. 


ROUTINE 


EQLESCHECK 


EQLESCHECK 


INPROCHECK 
INPROCHECK 
INPROCHECK 


SORTSTMT 
MERGESTMT 


MERGESTMT 
MERRIMAC 
MERRIMAC 


MERRIMAC 
MERRIMAC 
MERRIMAC 
MERRIMAC 


MERRIMAC 
MERRIMAC 


MERRIMAC 
DMUP 


DMUP 


APPENDIX C (cont) 


ERROR MESSAGE 
COMPARE procedure does not have exactly 
two parameters. 


COMPARE procedure first parameter not 
one-dimensional array. 


COMPARE procedure second parameter not 
one-dimensional array. 


SORT statement input procedure not 
Boolean. 


Input procedure does not have exactly one 
parameter. 


Input procedure parameter not one- 
dimension array. 


Missing ). 
Missing (. 


More than seven or less than two files 
to merge. 


Missing ie 
Missing File ID in MONITOR declaration. 


Missing left parenthesis in MONITOR 
declaration. 


Improper subscript for MONITOR list 
element. 


Improper subscript expression delimiter 
in MONITOR list element. 


Improper number of subscripts in MONITOR 
list element. 


LABEL or SWITCH monitored at improper 
level. 


Improper MONITOR list element. 


Missing right parenthesis in MONITOR 
declaration. 


Improper MONITOR declaration delimiter. 


Missing file identifier in DUMP declara- 
tion. 


Missing left parenthesis in DUMP declara- 
tion. 


ROUTINE 


DMUP 


DMUP 


DMUP 
DMUP 
DMUP 


DMUP 
DMUP 


DMUP 
DMUP 
READSTMT 


READSTMT 


READSTMT 


READSTMT 


READSTMT 


READSTMT 


READSTMT 
READSTMT 


HANDLETHETAIL- 
ENDOFAREALDOR- 
SPACESTATEMENT 


SPACESTMT 


APPENDIX C (cont) 


ERROR MESSAGE 


Subscripted variable in DUMP list has 
wrong number of subscripts. 


Subscripted variable in DUMP list has 
wrong number of subscripts. 


Improper ARRAY DUMP list element. 
Tllegal DUMP list element. 


More than 100 labels appear as DUMP list 
elements in one DUMP declaration. 


Tllegal DUMP list element delimiter. 


Missing or non-local label in a DUMP 
declaration. 


Missing colon in a DUMP declaration. 
Improper DUMP declaration delimiter. 


Missing left parenthesis in a READ 
statement. 


Missing left parenthesis in a READ 
REVERSE statement. 


Missing file in a READ statement. 


Improper file delimiter in a READ 
statement. 


Improper format delimiter in a READ 
statement. 


Improper delimiter for second parameter 
in a READ statement. 


Improper row designator in a READ state- 
ment. 


Improper row designator delimiter ina 
READ statement. 


Missing row designator in a READ statement. 


Improper delimiter preceding the list ina 


READ statement. 


Missing right bracket in a READ or SPACE 
statement. 


Missing left parenthesis in a SPACE 
statement. 


ROUTINE 


SPACESTMT 


SPACESTMT 
SPACESTMT 


WRITESTMT 


WRITESTMT 


WRITESTMT 
WRITESTMT 
WRITESTMT 
WRITESTMT 
WRITESTMT 
WRITESTMT 
WRITESTMT 
WRITESTMT 
READSTMT 

LOCKSTMT 


LOCKSTMT 
LOCKSTMT 
LOCKSTMT 


APPENDIX C (cont) 


ERROR MESSAGE 


Improper file identifier in a SPACE 
statement. 


Missing comma in a SPACE statement. 


Missing right parenthesis in a SPACE 
statement. 
Missing left parenthesis in a WRITE 
statement. 


Improper file identifier in a WRITE 
statement. 


TT ° a e s 
Improper delimiter for first 


a WRITE statement. 


Missing right bracket in carriage control 
part of a WRITE statement. 


Tilegal carriage control delimiter ina 
WRITE statement. 


Improper second parameter delimiter ina 
WRITE statement. 


Improper row designator in a WRITE 
statement. 


Missing right parenthesis after a row 
designator in a WRITE statement. 


Missing row designator in a WRITE state- 
ment. 


Improper delimiter preceding a list ina 
WRITE statement. 


Improper list delimiter in a WRITE state- 
ment. 


Improper list delimiter in a READ state- 
ment. 


° ° J e 
Missing left parenthesis in 


ment. 
Improper file part in a LOCK statement. 
Missing comma in a LOCK statement. 


Improper unit disposition part in a LOCK 
statement. 
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ROUTINE 
LOCKSTMT 
CLOSESTMT 


CLOSESTMT 
CLOSESTMT 
CLOSESTMT 


CLOSE STMT 


RWNDSTMT 


RWNDSTMT 
RWNDSTMT 


BLOCK 


DMUP 


SEARCHLIB 
SEARCHLIB 


SEARCHLIB 
SEARCHLIB 


SEARCHLIB 
SEARCHLIB 
SEARCHLIB 


APPENDIX C (cont) 


ERROR MESSAGE 


Missing right parenthesis in a LOCK 
statement. 


Missing left parenthesis in a CLOSE 
statement. 


Improper file part in a CLOSE statement. 
Missing comma in a CLOSE statement. 


Improper unit disposition part in a CLOSE 
statement. 


Missing right parenthesis in a CLOSE 
statement. 


Missing left parenthesis in a REWIND 
statement. 


Improper file part in a REWIND statement. 


Missing right parenthesis in a REWIND 
statement. 


A MONITOR deciaration appears in the 
specification part of a procedure. 


A DUMP declaration appears in the specifi- 
cation part of a procedure. 


Dump indicator must be unsigned integer 
or simple variable. 


Tllegal library identifier. 


Library identifier not contained in 
directory. 


Iilegal library start point. 


Separator required between start point 
and length. 


Tllegal library length. 
Missing bracket. 


Tape positioning error. 


INDEX 
METALINGUISTIC VARIABLES 


The syntactical definition of each Extended ALGOL metalinguistic 


variable will be found on the pages shown below. 


<abnormal-condition label) 6-56 {blank replacement transfer) 11-9 


(absolute address) 6-37 (block) 5-1 
{action labels) 6-20 (block head) 5-1 
{action part) 6-65 | (blocking specifications) 9-13 
(actual define parameter) 9-9 (Boolean expression) 4-8 
(actual define parameter {Boolean factor) 4-8 

list) 9-9 {rR sa ata ' 


(Boolean Primary) 4-9 
(Boolean secondary) 4-8 
(Boolean term) 4-8 

{bound pair) 9-4 

<bound pair list) 9-4 
(bracket) 2-2 

(break label) 6-62 
(break-out statement) 6-36 
(buffer part) 9-13 

(buffer release) 6-20 
(carriage control) 6-29 
(case statement) 6-69 
{case statement header) 6-69 
(character) 1-4 

{close statement) 6-34 


(actual parameter) 3-7 
{actual parameter list) 3-7 
(actual parameter part) 3-7 


{actual parametric define 
designator) 9-9 


(adding operator) 4-2 
(address) 6-38, 6-47 
(arithmetic expression) 4-1 
(arithmetic operator) 2-2 
(array declaration) 9-3 
(array identifier) 3-1 
(array identifier list) 10-2 
(array kind) 9-3 

(array list) 9-4 


(array row) 6-11 
{compare procedure) 12-1 


(array segment) 9-4 
{compound nest) 11-14 


(array specification) 10-2 


Toi ates 


(array specifier) 10-2 (compound statement) 5-1 


(array specifier list) 10-2 «compound stream statement) 11-16 
(compound stream tail) 11-1 


(assignment statement) 6-2 
{compound tail) 5-1 


(basic component set) 9-8 
(basic statement) 6-2 
(basic symbol) 2-1 


(concatenate expression) 4-16 
{concatenate operator) 4-16 


{conditional statement) 7-1 


0) 
fl 
a} 


one 


INDEX 


(conditional stream 
statement) 11-17 


{core size) 12-1 
{cycle number) 6-43 


(definition) 9-8 
(definition designator) 9-7 
(definition list) 9-7 
(definition part) 9-7 


(data comm clost statement) 6-67 (asiay Sanction) 6296 
(data comm input action dn 
: labels) 6-56 (delimiter) 2-2 
(data comm input parameters) 6-56 (designational expression) 4-14 
(data communications 1/0 (destination address part) 11-6 
statement) 6-53 (destination string 
(data comm output action statement) 11-8 
labels) 6-62 (digit) 2-1 
{data comm output bu {direction) 6-20 
meters -~62 

| parameters) (disk access technique) 9-13 
data comm read lock : 

statement) 6-58 (disk close statement) 6-52 
(data Gwin Bead Sele (disk file description) 9-13 

statement) 6-60 (disk input parameters) 6-47 
(data comm read statement) 6-56 {disk I/O statement) 6-46 
{data comm record address and (disk lock statement) 6-53 

release part) 6-56 ; 
E ; (disk output parameters) 6-49 
(data comm release statement) enor aie eGd Beck ctabeienty. 6250 
(data comm rewind statement) 6-68 (aie sae aia t) 6-47 
isk read statemen - 
eee seek statement) 6-61 (disiowawida eustensnty 6252 
data comm write lock . 
statement) 6-64 (disk space statement) 6-52 


(data comm write statement) 6-62 (disk 


(date) 6-43 

(decimal fraction) 2-6 
(déciaml number) 2-6 
(decimal places) 9-21 
(declaration) 9-1 
(declarator) 2-2 


(disk 


size) 12-1 
write statement) 6-48 


{do statement) 8-6 
{double constant) 6-9 
{double expression) 6-8 
(double operator) 6-9 
(double primary) 6-8 
{double statement) 6-8 


(define constituent) 9-9 
(define declaration) 9-7 
(define designator) 9-9 


(defined identifier) 9-7 


(dummy statement) 6-5 
{dump declaration) 9-40 
(dump indicator) 9-40 


two 


INDEX 


{dump list) 9-40 (fill statement) 6-6 

{dump list element) 9-40 (fixed logical record size) 9-13 
{dump part) {fixed physical record size) 9-13 
{edit and move read) 6-44 {for clause) 8-1 

{edit and move statement) 6-44 {for-list) 8-1 

{edit and move write) 6-45 (for-list element) 8-1 
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